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

Designer, SizeCompsDlg: Autocheck radiobutton when entering a value in HeightEdit / WidthEdit. Issue #23398, patch from Alexander Strokach

Browse Source 
git-svn-id: trunk@39405 -
This commit is contained in:
juha 2012-11-28 22:00:51 +00:00
parent e3fb445130
commit 5c8670cd8a
2 changed files with 67 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
designer/sizecompsdlg.lfm
View File

@ -9,13 +9,13 @@ object SizeComponentsDialog: TSizeComponentsDialog
ClientWidth = 380
OnClose = FormClose
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '1.1'
object PosLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner
Left = 190
Height = 14
Height = 1
Top = 0
Width = 1
ParentColor = False
@ -27,7 +27,7 @@ object SizeComponentsDialog: TSizeComponentsDialog
AnchorSideBottom.Control = HeightRadioGroup
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 146
Height = 141
Top = 6
Width = 181
Anchors = [akTop, akLeft, akRight, akBottom]
@ -44,18 +44,19 @@ object SizeComponentsDialog: TSizeComponentsDialog
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 128
ClientWidth = 177
ClientHeight = 122
ClientWidth = 173
TabOrder = 0
object WidthEdit: TEdit
AnchorSideBottom.Control = WidthRadioGroup
AnchorSideBottom.Side = asrBottom
Left = 86
Left = 82
Height = 23
Top = 99
Top = 93
Width = 80
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
OnChange = WidthEditChange
TabOrder = 0
Text = 'WidthEdit'
end
@ -67,7 +68,7 @@ object SizeComponentsDialog: TSizeComponentsDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 193
Height = 146
Height = 141
Top = 6
Width = 181
Anchors = [akTop, akLeft, akRight, akBottom]
@ -84,27 +85,36 @@ object SizeComponentsDialog: TSizeComponentsDialog
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 128
ClientWidth = 177
ClientHeight = 122
ClientWidth = 173
TabOrder = 1
object HeightEdit: TEdit
AnchorSideBottom.Control = HeightRadioGroup
AnchorSideBottom.Side = asrBottom
Left = 87
Left = 83
Height = 23
Top = 99
Top = 93
Width = 80
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
OnChange = HeightEditChange
TabOrder = 0
Text = 'HeightEdit'
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 26
Top = 158
Height = 31
Top = 153
Width = 368
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbOK, pbCancel]
ShowBevel = False

45
designer/sizecompsdlg.pp
View File

@ -43,6 +43,12 @@ type
WidthEdit: TEdit;
HeightEdit: TEdit;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure HeightEditChange(Sender: TObject);
procedure WidthEditChange(Sender: TObject);
private
IsAutoChangeWidth, IsAutoChangeHeight: boolean;
SaveItemIndexWidth, NumberItemWidth: Integer;
SaveItemIndexHeight, NumberItemHeight: Integer;
public
constructor Create(AOwner: TComponent); override;
end;
@ -81,6 +87,36 @@ begin
CloseAction := caFree;
end;
procedure TSizeComponentsDialog.HeightEditChange(Sender: TObject);
begin
if HeightEdit.Text = '' then
begin
HeightRadioGroup.ItemIndex := SaveItemIndexHeight;
IsAutoChangeHeight := false;
end
else if not IsAutoChangeHeight then
begin
SaveItemIndexHeight := HeightRadioGroup.ItemIndex;
HeightRadioGroup.ItemIndex := NumberItemHeight;
IsAutoChangeHeight := true;
end;
end;
procedure TSizeComponentsDialog.WidthEditChange(Sender: TObject);
begin
if WidthEdit.Text = '' then
begin
WidthRadioGroup.ItemIndex := SaveItemIndexWidth;
IsAutoChangeWidth := false;
end
else if not IsAutoChangeWidth then
begin
SaveItemIndexWidth := WidthRadioGroup.ItemIndex;
WidthRadioGroup.ItemIndex := NumberItemWidth;
IsAutoChangeWidth := true;
end;
end;
constructor TSizeComponentsDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
@ -96,7 +132,7 @@ begin
Add(lisNoChange);
Add(lisShrinkToSmal);
Add(lisGrowToLarges);
Add(dlgWidthPos);
NumberItemWidth := Add(dlgWidthPos);
EndUpdate;
end;
ItemIndex:=0;
@ -111,7 +147,7 @@ begin
Add(lisNoChange);
Add(lisShrinkToSmal);
Add(lisGrowToLarges);
Add(DlgHeightPos);
NumberItemHeight := Add(DlgHeightPos);
EndUpdate;
end;
ItemIndex:=0;
@ -119,6 +155,11 @@ begin
WidthEdit.Text:='';
HeightEdit.Text:='';
IsAutoChangeWidth := false;
IsAutoChangeHeight := false;
SaveItemIndexWidth := WidthRadioGroup.ItemIndex;
SaveItemIndexHeight := HeightRadioGroup.ItemIndex;
end;
end.