mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 04:49:40 +02:00
ideintf: add "save all" button to the imagelist editor (fixes another part of #0008166)
git-svn-id: trunk@16382 -
This commit is contained in:
paul
parent
03fcee900c
commit
a02a31da99
@ -208,7 +208,6 @@ object ImageListEditorDlg: TImageListEditorDlg
|
||||
'clSkyBlue'
|
||||
'clMedGray'
|
||||
)
|
||||
MaxLength = -1
|
||||
Palette = cpFull
|
||||
Selected = clFuchsia
|
||||
TabOrder = 2
|
||||
@ -281,6 +280,8 @@ object ImageListEditorDlg: TImageListEditorDlg
|
||||
ClientWidth = 360
|
||||
TabOrder = 4
|
||||
object TreeView: TTreeView
|
||||
AnchorSideLeft.Control = GroupBoxL
|
||||
AnchorSideTop.Control = GroupBoxL
|
||||
Left = 6
|
||||
Height = 284
|
||||
Top = 6
|
||||
@ -301,11 +302,16 @@ object ImageListEditorDlg: TImageListEditorDlg
|
||||
end
|
||||
object BtnAdd: TButton
|
||||
Tag = 1
|
||||
Left = 196
|
||||
AnchorSideLeft.Control = TreeView
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = GroupBoxL
|
||||
AnchorSideRight.Control = GroupBoxL
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 198
|
||||
Height = 25
|
||||
Top = 6
|
||||
Width = 159
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 156
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Add...'
|
||||
Default = True
|
||||
@ -313,22 +319,34 @@ object ImageListEditorDlg: TImageListEditorDlg
|
||||
TabOrder = 1
|
||||
end
|
||||
object BtnClear: TButton
|
||||
Left = 196
|
||||
AnchorSideLeft.Control = TreeView
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = BtnDelete
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = GroupBoxL
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 198
|
||||
Height = 25
|
||||
Top = 68
|
||||
Width = 159
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 156
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Clear'
|
||||
OnClick = BtnClearClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object BtnDelete: TButton
|
||||
Left = 196
|
||||
AnchorSideLeft.Control = TreeView
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = BtnAdd
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = GroupBoxL
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 198
|
||||
Height = 25
|
||||
Top = 37
|
||||
Width = 159
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 156
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&Delete'
|
||||
OnClick = BtnDeleteClick
|
||||
@ -336,11 +354,17 @@ object ImageListEditorDlg: TImageListEditorDlg
|
||||
end
|
||||
object BtnMoveUp: TButton
|
||||
Tag = -1
|
||||
Left = 196
|
||||
AnchorSideLeft.Control = TreeView
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = BtnClear
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = GroupBoxL
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 198
|
||||
Height = 25
|
||||
Top = 99
|
||||
Width = 159
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 156
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Move Up'
|
||||
OnClick = BtnMoveUpClick
|
||||
@ -348,26 +372,54 @@ object ImageListEditorDlg: TImageListEditorDlg
|
||||
end
|
||||
object BtnMoveDown: TButton
|
||||
Tag = 1
|
||||
Left = 196
|
||||
AnchorSideLeft.Control = TreeView
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = BtnMoveUp
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = GroupBoxL
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 198
|
||||
Height = 25
|
||||
Top = 130
|
||||
Width = 159
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 156
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Move Down'
|
||||
OnClick = BtnMoveUpClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object BtnSave: TButton
|
||||
Left = 196
|
||||
AnchorSideLeft.Control = TreeView
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = BtnMoveDown
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = GroupBoxL
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 198
|
||||
Height = 25
|
||||
Top = 161
|
||||
Width = 159
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 156
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Save...'
|
||||
OnClick = BtnSaveClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object btnSaveAll: TButton
|
||||
AnchorSideLeft.Control = TreeView
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = GroupBoxL
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 198
|
||||
Height = 25
|
||||
Top = 194
|
||||
Width = 156
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Save All...'
|
||||
OnClick = btnSaveAllClick
|
||||
TabOrder = 7
|
||||
end
|
||||
end
|
||||
object ImageList: TImageList
|
||||
left = 216
|
||||
|
||||
@ -60,55 +60,81 @@ LazarusResources.Add('TImageListEditorDlg','FORMDATA',[
|
||||
+'tiveText'#6#18'clActiveBrightText'#6#18'clActiveButtonText'#6#12'clActiveBa'
|
||||
+'se'#6#18'clActiveBackground'#6#14'clActiveShadow'#6#17'clActiveHighlight'#6
|
||||
+#23'clActiveHighlightedText'#6#12'clMoneyGreen'#6#9'clSkyBlue'#6#9'clMedGray'
|
||||
+#0#9'MaxLength'#2#255#7'Palette'#7#6'cpFull'#8'Selected'#7#9'clFuchsia'#8'Ta'
|
||||
+'bOrder'#2#2#4'Text'#6#9'clFuchsia'#8'OnChange'#7#24'ColorBoxTransparentClic'
|
||||
+'k'#0#0#0#7'TBitBtn'#5'BtnOK'#23'AnchorSideRight.Control'#7#9'BtnCancel'#4'L'
|
||||
+'eft'#3#230#0#6'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'akR'
|
||||
+'ight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#4'Kind'
|
||||
,#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBt'
|
||||
+'n'#9'BtnCancel'#23'AnchorSideRight.Control'#7#8'BtnApply'#4'Left'#3'F'#1#6
|
||||
+'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8'akBotto'
|
||||
+'m'#0#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResul'
|
||||
+'t'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'BtnApply'#23'Ancho'
|
||||
+'rSideRight.Control'#7#7'BtnHelp'#4'Left'#3#166#1#6'Height'#2'#'#3'Top'#3'N'
|
||||
+#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Aro'
|
||||
+'und'#2#6#7'Caption'#6#6'&Apply'#9'NumGlyphs'#2#0#7'OnClick'#7#13'btnApplyCl'
|
||||
+'ick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#7'BtnHelp'#4'Left'#3#6#2#6'Height'#2'#'
|
||||
+#3'Top'#3'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'Borde'
|
||||
+'rSpacing.Around'#2#6#7'Caption'#6#5'&Help'#4'Kind'#7#6'bkHelp'#9'NumGlyphs'
|
||||
+#2#0#8'TabOrder'#2#3#0#0#9'TGroupBox'#9'GroupBoxL'#4'Left'#2#6#6'Height'#3'9'
|
||||
+#1#3'Top'#2#6#5'Width'#3'l'#1#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0
|
||||
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#6'Images'#12'ClientHeight'#3''''#1
|
||||
+#11'ClientWidth'#3'h'#1#8'TabOrder'#2#4#0#9'TTreeView'#8'TreeView'#4'Left'#2
|
||||
+#6#6'Height'#3#28#1#3'Top'#2#6#5'Width'#3#186#0#7'Anchors'#11#5'akTop'#6'akL'
|
||||
+'eft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#17'DefaultItemHe'
|
||||
+'ight'#2#16#13'HideSelection'#8#6'Images'#7#9'ImageList'#9'RowSelect'#9#11'S'
|
||||
+'howButtons'#8#9'ShowLines'#8#8'ShowRoot'#8#8'TabOrder'#2#0#10'OnDeletion'#7
|
||||
+#16'TreeViewDeletion'#18'OnSelectionChanged'#7#24'TreeViewSelectionChanged'#7
|
||||
+'Options'#11#17'tvoAutoItemHeight'#21'tvoKeepCollapsedNodes'#12'tvoRowSelect'
|
||||
+#11'tvoToolTips'#0#0#0#7'TButton'#6'BtnAdd'#3'Tag'#2#1#4'Left'#3#196#0#6'Hei'
|
||||
+'ght'#2#25#3'Top'#2#6#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRight'#0#20
|
||||
+'BorderSpacing.Around'#2#6#7'Caption'#6#6'Add...'#7'Default'#9#7'OnClick'#7
|
||||
+#11'BtnAddClick'#8'TabOrder'#2#1#0#0#7'TButton'#8'BtnClear'#4'Left'#3#196#0#6
|
||||
+'Height'#2#25#3'Top'#2'D'#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRight'
|
||||
+#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#5'Clear'#7'OnClick'#7#13'BtnCle'
|
||||
+'arClick'#8'TabOrder'#2#2#0#0#7'TButton'#9'BtnDelete'#4'Left'#3#196#0#6'Heig'
|
||||
+'ht'#2#25#3'Top'#2'%'#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'akRight'#0#20
|
||||
+'BorderSpacing.Around'#2#6#7'Caption'#6#7'&Delete'#7'OnClick'#7#14'BtnDelete'
|
||||
+'Click'#8'TabOrder'#2#3#0#0#7'TButton'#9'BtnMoveUp'#3'Tag'#2#255#4'Left'#3
|
||||
+#196#0#6'Height'#2#25#3'Top'#2'c'#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7
|
||||
+'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Move Up'#7'OnClick'#7
|
||||
+#14'BtnMoveUpClick'#8'TabOrder'#2#4#0#0#7'TButton'#11'BtnMoveDown'#3'Tag'#2#1
|
||||
+#4'Left'#3#196#0#6'Height'#2#25#3'Top'#3#130#0#5'Width'#3#159#0#7'Anchors'#11
|
||||
+#5'akTop'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Move Down'
|
||||
+#7'OnClick'#7#14'BtnMoveUpClick'#8'TabOrder'#2#5#0#0#7'TButton'#7'BtnSave'#4
|
||||
+'Left'#3#196#0#6'Height'#2#25#3'Top'#3#161#0#5'Width'#3#159#0#7'Anchors'#11#5
|
||||
+'akTop'#7'akRight'#0#7'Caption'#6#7'Save...'#7'OnClick'#7#12'BtnSaveClick'#8
|
||||
+'TabOrder'#2#6#0#0#0#10'TImageList'#9'ImageList'#4'left'#3#216#0#3'top'#3#246
|
||||
+#0#0#0#18'TOpenPictureDialog'#10'OpenDialog'#11'FilterIndex'#2#0#7'Options'
|
||||
+#11#18'ofAllowMultiSelect'#15'ofFileMustExist'#14'ofEnableSizing'#12'ofViewD'
|
||||
+'etail'#13'ofAutoPreview'#0#4'left'#3#216#0#3'top'#3#209#0#0#0#18'TSavePictu'
|
||||
+'reDialog'#10'SaveDialog'#5'Title'#6#12'Save file as'#11'FilterIndex'#2#0#7
|
||||
+'Options'#11#14'ofEnableSizing'#12'ofViewDetail'#13'ofAutoPreview'#0#4'left'
|
||||
+#3#252#0#3'top'#3#209#0#0#0#0
|
||||
+#0#7'Palette'#7#6'cpFull'#8'Selected'#7#9'clFuchsia'#8'TabOrder'#2#2#4'Text'
|
||||
+#6#9'clFuchsia'#8'OnChange'#7#24'ColorBoxTransparentClick'#0#0#0#7'TBitBtn'#5
|
||||
+'BtnOK'#23'AnchorSideRight.Control'#7#9'BtnCancel'#4'Left'#3#230#0#6'Height'
|
||||
+#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20
|
||||
+'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#4'Kind'#7#4'bkOK'#11'ModalRes'
|
||||
,'ult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'BtnCancel'#23'An'
|
||||
+'chorSideRight.Control'#7#8'BtnApply'#4'Left'#3'F'#1#6'Height'#2'#'#3'Top'#3
|
||||
+'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Cap'
|
||||
+'tion'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0
|
||||
+#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'BtnApply'#23'AnchorSideRight.Control'#7#7
|
||||
+'BtnHelp'#4'Left'#3#166#1#6'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Ancho'
|
||||
+'rs'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#6
|
||||
+'&Apply'#9'NumGlyphs'#2#0#7'OnClick'#7#13'btnApplyClick'#8'TabOrder'#2#2#0#0
|
||||
+#7'TBitBtn'#7'BtnHelp'#4'Left'#3#6#2#6'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2
|
||||
+'Z'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Ca'
|
||||
+'ption'#6#5'&Help'#4'Kind'#7#6'bkHelp'#9'NumGlyphs'#2#0#8'TabOrder'#2#3#0#0#9
|
||||
+'TGroupBox'#9'GroupBoxL'#4'Left'#2#6#6'Height'#3'9'#1#3'Top'#2#6#5'Width'#3
|
||||
+'l'#1#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'
|
||||
+#2#6#7'Caption'#6#6'Images'#12'ClientHeight'#3''''#1#11'ClientWidth'#3'h'#1#8
|
||||
+'TabOrder'#2#4#0#9'TTreeView'#8'TreeView'#22'AnchorSideLeft.Control'#7#9'Gro'
|
||||
+'upBoxL'#21'AnchorSideTop.Control'#7#9'GroupBoxL'#4'Left'#2#6#6'Height'#3#28
|
||||
+#1#3'Top'#2#6#5'Width'#3#186#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
|
||||
+'akBottom'#0#20'BorderSpacing.Around'#2#6#17'DefaultItemHeight'#2#16#13'Hide'
|
||||
+'Selection'#8#6'Images'#7#9'ImageList'#9'RowSelect'#9#11'ShowButtons'#8#9'Sh'
|
||||
+'owLines'#8#8'ShowRoot'#8#8'TabOrder'#2#0#10'OnDeletion'#7#16'TreeViewDeleti'
|
||||
+'on'#18'OnSelectionChanged'#7#24'TreeViewSelectionChanged'#7'Options'#11#17
|
||||
+'tvoAutoItemHeight'#21'tvoKeepCollapsedNodes'#12'tvoRowSelect'#11'tvoToolTip'
|
||||
+'s'#0#0#0#7'TButton'#6'BtnAdd'#3'Tag'#2#1#22'AnchorSideLeft.Control'#7#8'Tre'
|
||||
+'eView'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9
|
||||
+'GroupBoxL'#23'AnchorSideRight.Control'#7#9'GroupBoxL'#20'AnchorSideRight.Si'
|
||||
+'de'#7#9'asrBottom'#4'Left'#3#198#0#6'Height'#2#25#3'Top'#2#6#5'Width'#3#156
|
||||
+#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6
|
||||
+#7'Caption'#6#6'Add...'#7'Default'#9#7'OnClick'#7#11'BtnAddClick'#8'TabOrder'
|
||||
+#2#1#0#0#7'TButton'#8'BtnClear'#22'AnchorSideLeft.Control'#7#8'TreeView'#19
|
||||
+'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'BtnDelete'
|
||||
+#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'Group'
|
||||
+'BoxL'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#198#0#6'Height'#2#25
|
||||
+#3'Top'#2'D'#5'Width'#3#156#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
|
||||
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#5'Clear'#7'OnClick'#7#13'BtnClear'
|
||||
+'Click'#8'TabOrder'#2#2#0#0#7'TButton'#9'BtnDelete'#22'AnchorSideLeft.Contro'
|
||||
+'l'#7#8'TreeView'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Co'
|
||||
+'ntrol'#7#6'BtnAdd'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight'
|
||||
+'.Control'#7#9'GroupBoxL'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
|
||||
+#198#0#6'Height'#2#25#3'Top'#2'%'#5'Width'#3#156#0#7'Anchors'#11#5'akTop'#6
|
||||
+'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'&Delete'#7
|
||||
+'OnClick'#7#14'BtnDeleteClick'#8'TabOrder'#2#3#0#0#7'TButton'#9'BtnMoveUp'#3
|
||||
+'Tag'#2#255#22'AnchorSideLeft.Control'#7#8'TreeView'#19'AnchorSideLeft.Side'
|
||||
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#8'BtnClear'#18'AnchorSideTop.Sid'
|
||||
+'e'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBoxL'#20'AnchorSideR'
|
||||
+'ight.Side'#7#9'asrBottom'#4'Left'#3#198#0#6'Height'#2#25#3'Top'#2'c'#5'Widt'
|
||||
+'h'#3#156#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A'
|
||||
+'round'#2#6#7'Caption'#6#7'Move Up'#7'OnClick'#7#14'BtnMoveUpClick'#8'TabOrd'
|
||||
+'er'#2#4#0#0#7'TButton'#11'BtnMoveDown'#3'Tag'#2#1#22'AnchorSideLeft.Control'
|
||||
+#7#8'TreeView'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr'
|
||||
+'ol'#7#9'BtnMoveUp'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight'
|
||||
+'.Control'#7#9'GroupBoxL'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3
|
||||
+#198#0#6'Height'#2#25#3'Top'#3#130#0#5'Width'#3#156#0#7'Anchors'#11#5'akTop'
|
||||
+#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Move Dow'
|
||||
+'n'#7'OnClick'#7#14'BtnMoveUpClick'#8'TabOrder'#2#5#0#0#7'TButton'#7'BtnSave'
|
||||
+#22'AnchorSideLeft.Control'#7#8'TreeView'#19'AnchorSideLeft.Side'#7#9'asrBot'
|
||||
+'tom'#21'AnchorSideTop.Control'#7#11'BtnMoveDown'#18'AnchorSideTop.Side'#7#9
|
||||
+'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBoxL'#20'AnchorSideRight.Si'
|
||||
+'de'#7#9'asrBottom'#4'Left'#3#198#0#6'Height'#2#25#3'Top'#3#161#0#5'Width'#3
|
||||
+#156#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'
|
||||
+#2#6#7'Caption'#6#7'Save...'#7'OnClick'#7#12'BtnSaveClick'#8'TabOrder'#2#6#0
|
||||
+#0#7'TButton'#10'btnSaveAll'#22'AnchorSideLeft.Control'#7#8'TreeView'#19'Anc'
|
||||
+'horSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBoxL'
|
||||
+#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#198#0#6'Height'#2#25#3'To'
|
||||
+'p'#3#194#0#5'Width'#3#156#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20
|
||||
,'BorderSpacing.Around'#2#6#7'Caption'#6#11'Save All...'#7'OnClick'#7#15'btnS'
|
||||
+'aveAllClick'#8'TabOrder'#2#7#0#0#0#10'TImageList'#9'ImageList'#4'left'#3#216
|
||||
+#0#3'top'#3#246#0#0#0#18'TOpenPictureDialog'#10'OpenDialog'#11'FilterIndex'#2
|
||||
+#0#7'Options'#11#18'ofAllowMultiSelect'#15'ofFileMustExist'#14'ofEnableSizin'
|
||||
+'g'#12'ofViewDetail'#13'ofAutoPreview'#0#4'left'#3#216#0#3'top'#3#209#0#0#0
|
||||
+#18'TSavePictureDialog'#10'SaveDialog'#5'Title'#6#12'Save file as'#11'Filter'
|
||||
+'Index'#2#0#7'Options'#11#14'ofEnableSizing'#12'ofViewDetail'#13'ofAutoPrevi'
|
||||
+'ew'#0#4'left'#3#252#0#3'top'#3#209#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -60,6 +60,7 @@ type
|
||||
BtnMoveUp: TButton;
|
||||
BtnMoveDown: TButton;
|
||||
BtnSave: TButton;
|
||||
btnSaveAll: TButton;
|
||||
ColorBoxTransparent: TColorBox;
|
||||
GroupBoxL: TGroupBox;
|
||||
GroupBoxR: TGroupBox;
|
||||
@ -75,6 +76,7 @@ type
|
||||
procedure BtnClearClick(Sender: TObject);
|
||||
procedure BtnDeleteClick(Sender: TObject);
|
||||
procedure BtnMoveUpClick(Sender: TObject);
|
||||
procedure btnSaveAllClick(Sender: TObject);
|
||||
procedure BtnSaveClick(Sender: TObject);
|
||||
procedure ColorBoxTransparentClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
@ -90,6 +92,7 @@ type
|
||||
ColorStrings: TSTrings;
|
||||
procedure FillColorBoxTransparent;
|
||||
procedure AddItemToColorBox(const s: string);
|
||||
procedure SavePicture(Picture: TPicture);
|
||||
public
|
||||
procedure LoadFromImageList(AImageList: TImageList);
|
||||
procedure SaveToImageList;
|
||||
@ -190,6 +193,7 @@ begin
|
||||
BtnMoveUp.Caption := sccsILEdtMoveUp;
|
||||
BtnMoveDown.Caption := sccsILEdtMoveDown;
|
||||
BtnSave.Caption := sccsILEdtSave;
|
||||
BtnSaveAll.Caption := sccsILEdtSaveAll;
|
||||
|
||||
LabelTransparent.Caption := sccsILEdtransparentColor;
|
||||
|
||||
@ -290,24 +294,49 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TImageListEditorDlg.SavePicture(Picture: TPicture);
|
||||
var
|
||||
FileName, Ext: String;
|
||||
begin
|
||||
if SaveDialog.Execute then
|
||||
begin
|
||||
FileName := SaveDialog.FileName;
|
||||
if ExtractFileExt(FileName) = '' then
|
||||
begin
|
||||
Ext := SaveDialog.GetFilterExt;
|
||||
if Ext <> '' then
|
||||
FileName := FileName + '.' + Ext;
|
||||
end;
|
||||
Picture.SaveToFile(FileName);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TImageListEditorDlg.btnSaveAllClick(Sender: TObject);
|
||||
var
|
||||
Picture: TPicture;
|
||||
begin
|
||||
if (ImageList.Count > 0) then
|
||||
begin
|
||||
Picture := TPicture.Create;
|
||||
try
|
||||
ImageList.GetFullBitmap(Picture.Bitmap);
|
||||
SavePicture(Picture);
|
||||
finally
|
||||
Picture.Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TImageListEditorDlg.BtnSaveClick(Sender: TObject);
|
||||
var
|
||||
Picture: TPicture;
|
||||
FileName, Ext: String;
|
||||
begin
|
||||
if Assigned(TreeView.Selected) and SaveDialog.Execute then
|
||||
if Assigned(TreeView.Selected) then
|
||||
begin
|
||||
Picture := TPicture.Create;
|
||||
try
|
||||
ImageList.GetBitmap(TreeView.Selected.ImageIndex, Picture.Bitmap);
|
||||
FileName := SaveDialog.FileName;
|
||||
if ExtractFileExt(FileName) = '' then
|
||||
begin
|
||||
Ext := SaveDialog.GetFilterExt;
|
||||
if Ext <> '' then
|
||||
FileName := FileName + '.' + Ext;
|
||||
end;
|
||||
Picture.SaveToFile(FileName);
|
||||
SavePicture(Picture);
|
||||
finally
|
||||
Picture.Free;
|
||||
end;
|
||||
|
||||
@ -124,6 +124,7 @@ resourcestring
|
||||
sccsILEdtMoveUp = 'Move Up';
|
||||
sccsILEdtMoveDown = 'Move Down';
|
||||
sccsILEdtSave = 'Save...';
|
||||
sccsILEdtSaveAll = 'Save All...';
|
||||
sccsILEdtransparentColor = 'Transparent Color:';
|
||||
sccsILEdtAdjustment = 'Adjustment';
|
||||
sccsILEdtNone = 'None';
|
||||
|
||||
Loading…
Reference in New Issue
Block a user