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

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4643
  • Karma: 40
    • Verze Delphi: XE7 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
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4643
  • Karma: 40
    • Verze Delphi: XE7 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
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.