paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:39:09 +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 object GenericCheckListForm: TGenericCheckListForm
Left = 389 Left = 389
Height = 277 Height = 282
Top = 463 Top = 463
Width = 343 Width = 351
ActiveControl = CheckListBox1 ActiveControl = CheckListBox1
Caption = 'GenericCheckListForm' Caption = 'GenericCheckListForm'
ClientHeight = 277 ClientHeight = 282
ClientWidth = 343 ClientWidth = 351
Constraints.MinHeight = 200
Constraints.MinWidth = 260
KeyPreview = True KeyPreview = True
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '3.99.0.0' LCLVersion = '4.99.0.0'
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 26 Height = 29
Top = 245 Top = 247
Width = 331 Width = 339
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Hint = '[Ctrl+Enter]' OKButton.Hint = '[Ctrl+Enter]'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -40,20 +42,21 @@ object GenericCheckListForm: TGenericCheckListForm
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 218 Height = 223
Top = 13 Top = 13
Width = 331 Width = 339
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
TabOrder = 0 TabOrder = 0
TopIndex = -1
OnItemClick = CheckListBox1ItemClick OnItemClick = CheckListBox1ItemClick
end end
object InfoLabel: TLabel object InfoLabel: TLabel
Left = 6 Left = 6
Height = 1 Height = 1
Top = 6 Top = 6
Width = 331 Width = 339
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ParentColor = False ParentColor = False

12
ide/genericchecklist.pas
View File

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

4
ide/genericlisteditor.lfm
View File

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

29
ide/genericlistselect.lfm
View File

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