mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 17:17:52 +02:00
Load glyph form resource
git-svn-id: trunk@16710 -
This commit is contained in:
laurent
parent
564d824e9a
commit
985937e965
@ -10,110 +10,110 @@ object ChangeClassDlg: TChangeClassDlg
|
||||
ClientHeight = 350
|
||||
ClientWidth = 470
|
||||
OnCreate = ChangeClassDlgCreate
|
||||
ParentFont = False
|
||||
LCLVersion = '0.9.25'
|
||||
object OldGroupBox: TGroupBox
|
||||
Left = 6
|
||||
Height = 290
|
||||
Height = 300
|
||||
Top = 6
|
||||
Width = 228
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'OldGroupBox'
|
||||
ClientHeight = 271
|
||||
ClientHeight = 282
|
||||
ClientWidth = 224
|
||||
TabOrder = 0
|
||||
object OldClassLabel: TLabel
|
||||
Left = 6
|
||||
Height = 20
|
||||
Height = 14
|
||||
Top = 2
|
||||
Width = 90
|
||||
Width = 67
|
||||
Caption = 'OldClassLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object OldAncestorGroupBox: TGroupBox
|
||||
AnchorSideTop.Control = OldClassLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Height = 243
|
||||
Top = 28
|
||||
Height = 260
|
||||
Top = 22
|
||||
Width = 224
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'OldAncestorGroupBox'
|
||||
ClientHeight = 224
|
||||
ClientHeight = 242
|
||||
ClientWidth = 220
|
||||
TabOrder = 0
|
||||
object OldAncestorsListBox: TListBox
|
||||
Height = 224
|
||||
Height = 242
|
||||
Width = 220
|
||||
Align = alClient
|
||||
ClickOnSelChange = False
|
||||
TabOrder = 0
|
||||
TopIndex = -1
|
||||
end
|
||||
end
|
||||
end
|
||||
object NewGroupBox: TGroupBox
|
||||
Left = 240
|
||||
Height = 290
|
||||
Height = 300
|
||||
Top = 6
|
||||
Width = 224
|
||||
Align = alRight
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'NewGroupBox'
|
||||
ClientHeight = 271
|
||||
ClientHeight = 282
|
||||
ClientWidth = 220
|
||||
TabOrder = 1
|
||||
object NewClassComboBox: TComboBox
|
||||
Left = 6
|
||||
Height = 29
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 208
|
||||
Align = alTop
|
||||
AutoComplete = True
|
||||
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
||||
BorderSpacing.Around = 6
|
||||
MaxLength = 0
|
||||
ItemHeight = 13
|
||||
MaxLength = -1
|
||||
OnEditingDone = NewClassComboBoxEditingDone
|
||||
TabOrder = 0
|
||||
Text = 'NewClassComboBox'
|
||||
end
|
||||
object NewAncestorGroupBox: TGroupBox
|
||||
Height = 230
|
||||
Top = 41
|
||||
Height = 249
|
||||
Top = 33
|
||||
Width = 220
|
||||
Align = alClient
|
||||
Caption = 'NewAncestorGroupBox'
|
||||
ClientHeight = 211
|
||||
ClientHeight = 231
|
||||
ClientWidth = 216
|
||||
TabOrder = 1
|
||||
object NewAncestorsListBox: TListBox
|
||||
Height = 211
|
||||
Height = 231
|
||||
Width = 216
|
||||
Align = alClient
|
||||
ClickOnSelChange = False
|
||||
TabOrder = 0
|
||||
TopIndex = -1
|
||||
end
|
||||
end
|
||||
end
|
||||
object BtnPanel: TPanel
|
||||
Height = 48
|
||||
Top = 302
|
||||
Height = 38
|
||||
Top = 312
|
||||
Width = 470
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 48
|
||||
ClientHeight = 38
|
||||
ClientWidth = 470
|
||||
TabOrder = 2
|
||||
object CancelButton: TBitBtn
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 386
|
||||
Height = 36
|
||||
Left = 389
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 78
|
||||
Width = 75
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
@ -127,8 +127,8 @@ object ChangeClassDlg: TChangeClassDlg
|
||||
end
|
||||
object OkButton: TBitBtn
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 305
|
||||
Height = 36
|
||||
Left = 308
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 75
|
||||
Align = alRight
|
||||
|
||||
@ -5,41 +5,41 @@ LazarusResources.Add('TChangeClassDlg','FORMDATA',[
|
||||
+#3'Top'#3#163#0#5'Width'#3#214#1#13'ActiveControl'#7#19'OldAncestorsListBox'
|
||||
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#12'b'
|
||||
+'sToolWindow'#7'Caption'#6#14'ChangeClassDlg'#12'ClientHeight'#3'^'#1#11'Cli'
|
||||
+'entWidth'#3#214#1#8'OnCreate'#7#20'ChangeClassDlgCreate'#10'LCLVersion'#6#6
|
||||
+'0.9.25'#0#9'TGroupBox'#11'OldGroupBox'#4'Left'#2#6#6'Height'#3'"'#1#3'Top'#2
|
||||
+#6#5'Width'#3#228#0#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Ca'
|
||||
+'ption'#6#11'OldGroupBox'#12'ClientHeight'#3#15#1#11'ClientWidth'#3#224#0#8
|
||||
+'TabOrder'#2#0#0#6'TLabel'#13'OldClassLabel'#4'Left'#2#6#6'Height'#2#20#3'To'
|
||||
+'p'#2#2#5'Width'#2'Z'#7'Caption'#6#13'OldClassLabel'#11'ParentColor'#8#0#0#9
|
||||
+'TGroupBox'#19'OldAncestorGroupBox'#21'AnchorSideTop.Control'#7#13'OldClassL'
|
||||
+'abel'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#3#243#0#3'Top'#2#28#5
|
||||
+'Width'#3#224#0#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
|
||||
+'Right'#8'akBottom'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#19'OldAncestorG'
|
||||
+'roupBox'#12'ClientHeight'#3#224#0#11'ClientWidth'#3#220#0#8'TabOrder'#2#0#0
|
||||
+#8'TListBox'#19'OldAncestorsListBox'#6'Height'#3#224#0#5'Width'#3#220#0#5'Al'
|
||||
+'ign'#7#8'alClient'#16'ClickOnSelChange'#8#8'TabOrder'#2#0#8'TopIndex'#2#255
|
||||
+#0#0#0#0#9'TGroupBox'#11'NewGroupBox'#4'Left'#3#240#0#6'Height'#3'"'#1#3'Top'
|
||||
+#2#6#5'Width'#3#224#0#5'Align'#7#7'alRight'#20'BorderSpacing.Around'#2#6#7'C'
|
||||
+'aption'#6#11'NewGroupBox'#12'ClientHeight'#3#15#1#11'ClientWidth'#3#220#0#8
|
||||
+'TabOrder'#2#1#0#9'TComboBox'#16'NewClassComboBox'#4'Left'#2#6#6'Height'#2#29
|
||||
+#3'Top'#2#6#5'Width'#3#208#0#5'Align'#7#5'alTop'#12'AutoComplete'#9#16'AutoC'
|
||||
+'ompleteText'#11#12'cbactEnabled'#22'cbactEndOfLineComplete'#20'cbactSearchA'
|
||||
+'scending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#13'OnEditingDone'
|
||||
+#7#27'NewClassComboBoxEditingDone'#8'TabOrder'#2#0#4'Text'#6#16'NewClassComb'
|
||||
+'oBox'#0#0#9'TGroupBox'#19'NewAncestorGroupBox'#6'Height'#3#230#0#3'Top'#2')'
|
||||
+#5'Width'#3#220#0#5'Align'#7#8'alClient'#7'Caption'#6#19'NewAncestorGroupBox'
|
||||
+#12'ClientHeight'#3#211#0#11'ClientWidth'#3#216#0#8'TabOrder'#2#1#0#8'TListB'
|
||||
+'ox'#19'NewAncestorsListBox'#6'Height'#3#211#0#5'Width'#3#216#0#5'Align'#7#8
|
||||
+'alClient'#16'ClickOnSelChange'#8#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#0#0#6
|
||||
+'TPanel'#8'BtnPanel'#6'Height'#2'0'#3'Top'#3'.'#1#5'Width'#3#214#1#5'Align'#7
|
||||
+#8'alBottom'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'0'
|
||||
+'entWidth'#3#214#1#8'OnCreate'#7#20'ChangeClassDlgCreate'#10'ParentFont'#8#10
|
||||
+'LCLVersion'#6#6'0.9.25'#0#9'TGroupBox'#11'OldGroupBox'#4'Left'#2#6#6'Height'
|
||||
+#3','#1#3'Top'#2#6#5'Width'#3#228#0#5'Align'#7#8'alClient'#20'BorderSpacing.'
|
||||
+'Around'#2#6#7'Caption'#6#11'OldGroupBox'#12'ClientHeight'#3#26#1#11'ClientW'
|
||||
+'idth'#3#224#0#8'TabOrder'#2#0#0#6'TLabel'#13'OldClassLabel'#4'Left'#2#6#6'H'
|
||||
+'eight'#2#14#3'Top'#2#2#5'Width'#2'C'#7'Caption'#6#13'OldClassLabel'#11'Pare'
|
||||
+'ntColor'#8#0#0#9'TGroupBox'#19'OldAncestorGroupBox'#21'AnchorSideTop.Contro'
|
||||
+'l'#7#13'OldClassLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#3#4#1
|
||||
+#3'Top'#2#22#5'Width'#3#224#0#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6
|
||||
+'akLeft'#7'akRight'#8'akBottom'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#19
|
||||
+'OldAncestorGroupBox'#12'ClientHeight'#3#242#0#11'ClientWidth'#3#220#0#8'Tab'
|
||||
+'Order'#2#0#0#8'TListBox'#19'OldAncestorsListBox'#6'Height'#3#242#0#5'Width'
|
||||
+#3#220#0#5'Align'#7#8'alClient'#16'ClickOnSelChange'#8#8'TabOrder'#2#0#0#0#0
|
||||
+#0#9'TGroupBox'#11'NewGroupBox'#4'Left'#3#240#0#6'Height'#3','#1#3'Top'#2#6#5
|
||||
+'Width'#3#224#0#5'Align'#7#7'alRight'#20'BorderSpacing.Around'#2#6#7'Caption'
|
||||
+#6#11'NewGroupBox'#12'ClientHeight'#3#26#1#11'ClientWidth'#3#220#0#8'TabOrde'
|
||||
+'r'#2#1#0#9'TComboBox'#16'NewClassComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'
|
||||
+#2#6#5'Width'#3#208#0#5'Align'#7#5'alTop'#12'AutoComplete'#9#16'AutoComplete'
|
||||
+'Text'#11#12'cbactEnabled'#22'cbactEndOfLineComplete'#20'cbactSearchAscendin'
|
||||
+'g'#0#20'BorderSpacing.Around'#2#6#10'ItemHeight'#2#13#9'MaxLength'#2#255#13
|
||||
+'OnEditingDone'#7#27'NewClassComboBoxEditingDone'#8'TabOrder'#2#0#4'Text'#6
|
||||
+#16'NewClassComboBox'#0#0#9'TGroupBox'#19'NewAncestorGroupBox'#6'Height'#3
|
||||
+#249#0#3'Top'#2'!'#5'Width'#3#220#0#5'Align'#7#8'alClient'#7'Caption'#6#19'N'
|
||||
+'ewAncestorGroupBox'#12'ClientHeight'#3#231#0#11'ClientWidth'#3#216#0#8'TabO'
|
||||
+'rder'#2#1#0#8'TListBox'#19'NewAncestorsListBox'#6'Height'#3#231#0#5'Width'#3
|
||||
+#216#0#5'Align'#7#8'alClient'#16'ClickOnSelChange'#8#8'TabOrder'#2#0#0#0#0#0
|
||||
+#6'TPanel'#8'BtnPanel'#6'Height'#2'&'#3'Top'#3'8'#1#5'Width'#3#214#1#5'Align'
|
||||
+#7#8'alBottom'#8'AutoSize'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'&'
|
||||
+#11'ClientWidth'#3#214#1#8'TabOrder'#2#2#0#7'TBitBtn'#12'CancelButton'#20'An'
|
||||
+'chorSideRight.Side'#7#9'asrBottom'#21'AnchorSideBottom.Side'#7#9'asrBottom'
|
||||
+#4'Left'#3#130#1#6'Height'#2'$'#3'Top'#2#6#5'Width'#2'N'#5'Align'#7#7'alRigh'
|
||||
+#4'Left'#3#133#1#6'Height'#2#26#3'Top'#2#6#5'Width'#2'K'#5'Align'#7#7'alRigh'
|
||||
+'t'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7'Caption'#6#6'Ca'
|
||||
+'ncel'#20'Constraints.MinWidth'#2'K'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2
|
||||
+#2#9'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'OkButton'#21'AnchorSide'
|
||||
+'Bottom.Side'#7#9'asrBottom'#4'Left'#3'1'#1#6'Height'#2'$'#3'Top'#2#6#5'Widt'
|
||||
+'Bottom.Side'#7#9'asrBottom'#4'Left'#3'4'#1#6'Height'#2#26#3'Top'#2#6#5'Widt'
|
||||
+'h'#2'K'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7
|
||||
+'Caption'#6#3'&OK'#20'Constraints.MinWidth'#2'K'#4'Kind'#7#4'bkOK'#11'ModalR'
|
||||
+'esult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0
|
||||
|
||||
@ -307,6 +307,8 @@ begin
|
||||
NewAncestorGroupBox.Caption:=lisNewAncestors;
|
||||
OkButton.Caption:=lisLazBuildOk;
|
||||
CancelButton.Caption:=dlgCancel;
|
||||
OkButton.LoadGlyphFromLazarusResource('btn_ok');
|
||||
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
|
||||
end;
|
||||
|
||||
procedure TChangeClassDlg.NewClassComboBoxEditingDone(Sender: TObject);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user