paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 07:36:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Set Constraints for the generic edit forms. Issue #41599.

Browse Source
This commit is contained in:
Juha 2025-07-04 09:10:10 +03:00
parent 9478be7d0e
commit 45d24e205a
4 changed files with 39 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/genericchecklist.lfm
View File

@ -1,22 +1,24 @@
object GenericCheckListForm: TGenericCheckListForm
Left = 389
Height = 277
Height = 282
Top = 463
Width = 343
Width = 351
ActiveControl = CheckListBox1
Caption = 'GenericCheckListForm'
ClientHeight = 277
ClientWidth = 343
ClientHeight = 282
ClientWidth = 351
Constraints.MinHeight = 200
Constraints.MinWidth = 260
KeyPreview = True
Position = poScreenCenter
LCLVersion = '3.99.0.0'
LCLVersion = '4.99.0.0'
OnKeyDown = FormKeyDown
OnShow = FormShow
object ButtonPanel1: TButtonPanel
Left = 6
Height = 26
Top = 245
Width = 331
Height = 29
Top = 247
Width = 339
OKButton.Name = 'OKButton'
OKButton.Hint = '[Ctrl+Enter]'
OKButton.DefaultCaption = True
@ -40,20 +42,21 @@ object GenericCheckListForm: TGenericCheckListForm
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 218
Height = 223
Top = 13
Width = 331
Width = 339
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 0
TopIndex = -1
OnItemClick = CheckListBox1ItemClick
end
object InfoLabel: TLabel
Left = 6
Height = 1
Top = 6
Width = 331
Width = 339
Align = alTop
BorderSpacing.Around = 6
ParentColor = False

12
ide/genericchecklist.pas
View File

@ -33,6 +33,12 @@ implementation
{$R *.lfm}
constructor TGenericCheckListForm.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
fDisallowNoneSelected := False;
end;
constructor TGenericCheckListForm.CreateWithActionButton(aCaption: TCaption;
aResourceGlyphName: string);
begin
@ -89,11 +95,5 @@ begin
end;
end;
constructor TGenericCheckListForm.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
fDisallowNoneSelected := False;
end;
end.

4
ide/genericlisteditor.lfm
View File

@ -8,9 +8,11 @@ object GenericListEditForm: TGenericListEditForm
Caption = 'GenericListEditForm'
ClientHeight = 301
ClientWidth = 343
Constraints.MinHeight = 200
Constraints.MinWidth = 260
KeyPreview = True
Position = poScreenCenter
LCLVersion = '2.1.0.0'
LCLVersion = '4.99.0.0'
OnKeyDown = FormKeyDown
object ButtonPanel1: TButtonPanel
Left = 6

29
ide/genericlistselect.lfm
View File

@ -2,20 +2,20 @@ object GenericListSelectForm: TGenericListSelectForm
Left = 389
Height = 277
Top = 463
Width = 466
Width = 437
Caption = 'GenericCheckListForm'
ClientHeight = 277
ClientWidth = 466
ClientWidth = 437
KeyPreview = True
Position = poScreenCenter
LCLVersion = '4.99.0.0'
OnKeyDown = FormKeyDown
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 30
Top = 241
Width = 454
Height = 29
Top = 242
Width = 425
OKButton.Name = 'OKButton'
OKButton.Hint = '[Ctrl+Enter]'
OKButton.DefaultCaption = True
@ -34,9 +34,9 @@ object GenericListSelectForm: TGenericListSelectForm
end
object InfoLabel: TLabel
Left = 6
Height = 19
Height = 1
Top = 6
Width = 454
Width = 425
Align = alTop
BorderSpacing.Around = 6
ParentColor = False
@ -49,14 +49,17 @@ object GenericListSelectForm: TGenericListSelectForm
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 200
Top = 31
Width = 454
Height = 218
Top = 13
Width = 425
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Constraints.MinHeight = 200
Constraints.MinWidth = 260
ItemHeight = 0
TabOrder = 0
TopIndex = -1
OnClick = ListBoxClick
OnDblClick = ListBoxDblClick
TabOrder = 0
end
end