paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: cleanup of GenericCheckListForm/GenericListEditorForm/GenericListSelectForm, patch from n7800

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-11-27 02:38:15 +03:00
parent 3fda0a9be8
commit c9e2e06abe
5 changed files with 5 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/genericchecklist.lfm
View File

@ -52,7 +52,6 @@ object GenericCheckListForm: TGenericCheckListForm
Width = 331
Align = alTop
BorderSpacing.Around = 6
Caption = 'InfoLabel'
ParentColor = False
WordWrap = True
end

20
ide/genericchecklist.pas
View File

@ -24,33 +24,22 @@ type
fActionBtn: TBitBtn;
procedure UpdateButtons;
public
constructor Create(TheOwner: TComponent); override;
constructor CreateWithActionButton(aCaption: TCaption; aResourceGlyphName: string = '');
destructor Destroy; override;
end;
var
GenericCheckListForm: TGenericCheckListForm;
implementation
{$R *.lfm}
{ TGenericCheckListForm }
constructor TGenericCheckListForm.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
InfoLabel.Caption := '';
end;
constructor TGenericCheckListForm.CreateWithActionButton(aCaption: TCaption;
aResourceGlyphName: string);
begin
Create(Nil);
inherited Create(nil);
fActionBtn := TBitBtn.Create(ButtonPanel1);
fActionBtn.Caption := aCaption;
fActionBtn.ModalResult := mrYes; // ActionButton will return mrYes.
fActionBtn.ModalResult := mrYes; // ActionButton will return mrYes.
fActionBtn.Align := alRight;
fActionBtn.BorderSpacing.Left := 6;
fActionBtn.BorderSpacing.Right := 6;
@ -60,11 +49,6 @@ begin
fActionBtn.Parent := ButtonPanel1;
end;
destructor TGenericCheckListForm.Destroy;
begin
inherited Destroy;
end;
procedure TGenericCheckListForm.FormShow(Sender: TObject);
begin
UpdateButtons;

9
ide/genericlisteditor.pas
View File

@ -14,14 +14,7 @@ type
TGenericListEditForm = class(TForm)
ButtonPanel1: TButtonPanel;
Memo1: TMemo;
private
public
end;
var
GenericListEditForm: TGenericListEditForm;
end;
implementation

1
ide/genericlistselect.lfm
View File

@ -35,7 +35,6 @@ object GenericListSelectForm: TGenericListSelectForm
Width = 454
Align = alTop
BorderSpacing.Around = 6
Caption = 'InfoLabel'
ParentColor = False
WordWrap = True
end

22
ide/genericlistselect.pas
View File

@ -21,31 +21,14 @@ type
procedure ListBoxDblClick(Sender: TObject);
private
procedure UpdateButtons;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
end;
var
GenericListSelectForm: TGenericListSelectForm;
implementation
{$R *.lfm}
{ TGenericListSelectForm }
constructor TGenericListSelectForm.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
InfoLabel.Caption := '';
end;
destructor TGenericListSelectForm.Destroy;
begin
inherited Destroy;
end;
procedure TGenericListSelectForm.FormShow(Sender: TObject);
begin
UpdateButtons;
@ -58,14 +41,13 @@ end;
procedure TGenericListSelectForm.ListBoxDblClick(Sender: TObject);
begin
if ListBox.ItemIndex > -1 then
ModalResult:=mrOK;
if ListBox.ItemIndex >= 0 then
ModalResult := mrOK;
end;
procedure TGenericListSelectForm.UpdateButtons;
begin
ButtonPanel1.OKButton.Enabled := ListBox.ItemIndex >= 0;
//ListBox.Selected[1];
end;
end.