Autor Téma: GridDropDownHelper na stiahnutie v prílohe  (Přečteno 217 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
GridDropDownHelper na stiahnutie v prílohe
« kdy: 15-12-2019, 17:30:46 »
Keď už idú tie Vianoce. Taká drobnosť. Možno niekoho poteší:
  • Hlavným dôvodom bolo zachovanie šírok stĺpcov tak, ako si ich nastavil užívateľ. Kvôli tomu TMS upravoval komponent
  • SetDropDownHeight
  • SetItemIndex
  • ClearAdvGridDropDown
  • IndexOf
  • Automatické nastavenie počtu zobrazených riadkov. Teraz mám maximum 21
  • Úprava výšky riadka na klasickú hodnotu
Aby fungovalo je nutné
Kód: Delphi [Vybrat]
  1. procedure TfrmChartOfAccounts.advgddClassGridColumnSizing(Sender: TObject; ACol, ColumnSize: Integer);
  2. begin
  3.   advgddClass.Columns[ACol].Width := ColumnSize;
  4. end;
Dajte sem prípadné pripomienky alebo vylepšenia
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:GridDropDownHelper na stiahnutie v prílohe
« Odpověď #1 kdy: 17-12-2019, 08:37:41 »
Samozrejme, že doteraz som na to nenarazil. Až po uverejnení. Oprava riadku 72:

  if (Self.Items.Count = 0) or (Self.ItemIndex = -1) then
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.