Grid export: fix non triggered code for format selection

This commit is contained in:
Ansgar Becker
2024-04-21 16:14:41 +02:00
parent 5b4afdd2df
commit d094e45619
2 changed files with 3 additions and 2 deletions

View File

@@ -302,6 +302,7 @@ object frmExportGrid: TfrmExportGrid
Style = csExDropDownList
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
OnSelect = comboFormatSelect
Images = MainForm.VirtualImageListMain
DropDownCount = 20
end

View File

@@ -80,7 +80,7 @@ type
procedure ValidateControls(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure grpFormatClick(Sender: TObject);
procedure comboFormatSelect(Sender: TObject);
procedure btnSetClipboardDefaultsClick(Sender: TObject);
private
{ Private declarations }
@@ -325,7 +325,7 @@ begin
end;
procedure TfrmExportGrid.grpFormatClick(Sender: TObject);
procedure TfrmExportGrid.comboFormatSelect(Sender: TObject);
var
Filename: String;
begin