ideintf: fix TColorBox usage (#0012616)

git-svn-id: trunk@17356 -
This commit is contained in:
paul 2008-11-12 15:21:25 +00:00
parent af8ae0a192
commit dad49bfaff
3 changed files with 116 additions and 276 deletions

View File

@ -12,8 +12,9 @@ object ImageListEditorDlg: TImageListEditorDlg
Constraints.MinWidth = 520
OnCreate = FormCreate
OnDestroy = FormDestroy
ParentFont = False
Position = poScreenCenter
LCLVersion = '0.9.25'
LCLVersion = '0.9.27'
object GroupBoxR: TGroupBox
Left = 375
Height = 313
@ -27,9 +28,9 @@ object ImageListEditorDlg: TImageListEditorDlg
TabOrder = 5
object LabelTransparent: TLabel
Left = 110
Height = 20
Top = 183
Width = 117
Height = 14
Top = 189
Width = 92
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'Transparent Color:'
@ -37,9 +38,9 @@ object ImageListEditorDlg: TImageListEditorDlg
end
object LabelSize: TLabel
Left = 6
Height = 30
Height = 14
Top = 6
Width = 78
Width = 1
ParentColor = False
end
object Preview: TScrollBox
@ -85,134 +86,18 @@ object ImageListEditorDlg: TImageListEditorDlg
TabOrder = 1
end
object ColorBoxTransparent: TColorBox
AnchorSideTop.Control = LabelTransparent
AnchorSideTop.Side = asrBottom
Left = 110
Height = 22
Top = 212
Top = 209
Width = 96
Anchors = [akLeft, akBottom]
Selected = clFuchsia
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
Enabled = False
ItemHeight = 16
ItemIndex = 13
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clLtGray'
'clDkGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
'clScrollBar'
'clBackground'
'clActiveCaption'
'clInactiveCaption'
'clMenu'
'clWindow'
'clWindowFrame'
'clMenuText'
'clWindowText'
'clCaptionText'
'clActiveBorder'
'clInactiveBorder'
'clAppWorkspace'
'clHighlight'
'clHighlightText'
'clBtnFace'
'clBtnShadow'
'clGrayText'
'clBtnText'
'clInactiveCaptionText'
'clBtnHighlight'
'cl3DDkShadow'
'cl3DLight'
'clInfoText'
'clInfoBk'
'clHotLight'
'clGradientActiveCaption'
'clGradientInactiveCaption'
'clForm'
'clEndColors'
'clColorDesktop'
'cl3DFace'
'cl3DShadow'
'cl3DHiLight'
'clBtnHiLight'
'clForeground'
'clButton'
'clLight'
'clMidlight'
'clDark'
'clMid'
'clText'
'clBrightText'
'clButtonText'
'clBase'
'clShadow'
'clHighlightedText'
'clNormalForeground'
'clNormalButton'
'clNormalLight'
'clNormalMidlight'
'clNormalDark'
'clNormalMid'
'clNormalText'
'clNormalBrightText'
'clNormalButtonText'
'clNormalBase'
'clNormalBackground'
'clNormalShadow'
'clNormalHighlight'
'clNormalHighlightedText'
'clDisabledForeground'
'clDisabledButton'
'clDisabledLight'
'clDisabledMidlight'
'clDisabledDark'
'clDisabledMid'
'clDisabledText'
'clDisabledBrightText'
'clDisabledButtonText'
'clDisabledBase'
'clDisabledBackground'
'clDisabledShadow'
'clDisabledHighlight'
'clDisabledHighlightedText'
'clActiveForeground'
'clActiveButton'
'clActiveLight'
'clActiveMidlight'
'clActiveDark'
'clActiveMid'
'clActiveText'
'clActiveBrightText'
'clActiveButtonText'
'clActiveBase'
'clActiveBackground'
'clActiveShadow'
'clActiveHighlight'
'clActiveHighlightedText'
'clMoneyGreen'
'clSkyBlue'
'clMedGray'
)
Palette = cpFull
Selected = clFuchsia
TabOrder = 2
Text = 'clFuchsia'
OnChange = ColorBoxTransparentClick
TabOrder = 2
end
end
object BtnOK: TBitBtn

View File

@ -6,135 +6,108 @@ LazarusResources.Add('TImageListEditorDlg','FORMDATA',[
+'rIcons'#11#12'biSystemMenu'#6'biHelp'#0#7'Caption'#6#17'ImagesList Editor'
+#12'ClientHeight'#3'{'#1#11'ClientWidth'#3'h'#2#21'Constraints.MinHeight'#3
+'Y'#1#20'Constraints.MinWidth'#3#8#2#8'OnCreate'#7#10'FormCreate'#9'OnDestro'
+'y'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.'
+'9.25'#0#9'TGroupBox'#9'GroupBoxR'#4'Left'#3'w'#1#6'Height'#3'9'#1#3'Top'#2#6
+#5'Width'#3#235#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'Selected Image'#12'ClientHeigh'
+'t'#3''''#1#11'ClientWidth'#3#231#0#8'TabOrder'#2#5#0#6'TLabel'#16'LabelTran'
+'sparent'#4'Left'#2'n'#6'Height'#2#20#3'Top'#3#183#0#5'Width'#2'u'#7'Anchors'
+#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'Tra'
+'nsparent Color:'#11'ParentColor'#8#0#0#6'TLabel'#9'LabelSize'#4'Left'#2#6#6
+'Height'#2#30#3'Top'#2#6#5'Width'#2'N'#11'ParentColor'#8#0#0#10'TScrollBox'#7
+'Preview'#4'Left'#2#6#6'Height'#3#147#0#3'Top'#2' '#5'Width'#3#218#0#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'
+#2#6#5'Color'#7#10'clGrayText'#11'ParentColor'#8#8'TabOrder'#2#0#7'OnPaint'#7
+#12'PreviewPaint'#0#0#11'TRadioGroup'#10'RadioGroup'#4'Left'#2#6#6'Height'#2
+'i'#3'Top'#3#185#0#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'Aut'
+'oFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#10'Adjustment'#28'ChildS'
+'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi'
+'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar'
+'geVertical'#7#24'crsHomogenousSpaceResize'#28'ChildSizing.ShrinkHorizontal'
+#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
+'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
+'rolsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'\'#7'Enabled'#8#9
+'ItemIndex'#2#0#13'Items.Strings'#1#6#4'None'#6#7'Stretch'#6#4'Crop'#6#6'Cen'
+'ter'#0#7'OnClick'#7#24'ColorBoxTransparentClick'#8'TabOrder'#2#1#0#0#9'TCol'
+'orBox'#19'ColorBoxTransparent'#4'Left'#2'n'#6'Height'#2#22#3'Top'#3#212#0#5
+'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Enabled'#8#10'ItemHeigh'
+'t'#2#16#9'ItemIndex'#2#13#13'Items.Strings'#1#6#7'clBlack'#6#8'clMaroon'#6#7
+'clGreen'#6#7'clOlive'#6#6'clNavy'#6#8'clPurple'#6#6'clTeal'#6#6'clGray'#6#8
+'clSilver'#6#5'clRed'#6#6'clLime'#6#8'clYellow'#6#6'clBlue'#6#9'clFuchsia'#6
+#6'clAqua'#6#8'clLtGray'#6#8'clDkGray'#6#7'clWhite'#6#7'clCream'#6#6'clNone'
+#6#9'clDefault'#6#11'clScrollBar'#6#12'clBackground'#6#15'clActiveCaption'#6
+#17'clInactiveCaption'#6#6'clMenu'#6#8'clWindow'#6#13'clWindowFrame'#6#10'cl'
+'MenuText'#6#12'clWindowText'#6#13'clCaptionText'#6#14'clActiveBorder'#6#16
+'clInactiveBorder'#6#14'clAppWorkspace'#6#11'clHighlight'#6#15'clHighlightTe'
+'xt'#6#9'clBtnFace'#6#11'clBtnShadow'#6#10'clGrayText'#6#9'clBtnText'#6#21'c'
+'lInactiveCaptionText'#6#14'clBtnHighlight'#6#12'cl3DDkShadow'#6#9'cl3DLight'
+#6#10'clInfoText'#6#8'clInfoBk'#6#10'clHotLight'#6#23'clGradientActiveCaptio'
+'n'#6#25'clGradientInactiveCaption'#6#6'clForm'#6#11'clEndColors'#6#14'clCol'
+'orDesktop'#6#8'cl3DFace'#6#10'cl3DShadow'#6#11'cl3DHiLight'#6#12'clBtnHiLig'
+'ht'#6#12'clForeground'#6#8'clButton'#6#7'clLight'#6#10'clMidlight'#6#6'clDa'
+'rk'#6#5'clMid'#6#6'clText'#6#12'clBrightText'#6#12'clButtonText'#6#6'clBase'
+#6#8'clShadow'#6#17'clHighlightedText'#6#18'clNormalForeground'#6#14'clNorma'
+'lButton'#6#13'clNormalLight'#6#16'clNormalMidlight'#6#12'clNormalDark'#6#11
+'clNormalMid'#6#12'clNormalText'#6#18'clNormalBrightText'#6#18'clNormalButto'
+'nText'#6#12'clNormalBase'#6#18'clNormalBackground'#6#14'clNormalShadow'#6#17
+'clNormalHighlight'#6#23'clNormalHighlightedText'#6#20'clDisabledForeground'
+#6#16'clDisabledButton'#6#15'clDisabledLight'#6#18'clDisabledMidlight'#6#14
+'clDisabledDark'#6#13'clDisabledMid'#6#14'clDisabledText'#6#20'clDisabledBri'
+'ghtText'#6#20'clDisabledButtonText'#6#14'clDisabledBase'#6#20'clDisabledBac'
+'kground'#6#16'clDisabledShadow'#6#19'clDisabledHighlight'#6#25'clDisabledHi'
+'ghlightedText'#6#18'clActiveForeground'#6#14'clActiveButton'#6#13'clActiveL'
+'ight'#6#16'clActiveMidlight'#6#12'clActiveDark'#6#11'clActiveMid'#6#12'clAc'
+'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#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
+'y'#7#11'FormDestroy'#10'ParentFont'#8#8'Position'#7#14'poScreenCenter'#10'L'
+'CLVersion'#6#6'0.9.27'#0#9'TGroupBox'#9'GroupBoxR'#4'Left'#3'w'#1#6'Height'
+#3'9'#1#3'Top'#2#6#5'Width'#3#235#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'ht'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'Selected Ima'
+'ge'#12'ClientHeight'#3''''#1#11'ClientWidth'#3#231#0#8'TabOrder'#2#5#0#6'TL'
+'abel'#16'LabelTransparent'#4'Left'#2'n'#6'Height'#2#14#3'Top'#3#189#0#5'Wid'
+'th'#2'\'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6
+#7'Caption'#6#18'Transparent Color:'#11'ParentColor'#8#0#0#6'TLabel'#9'Label'
+'Size'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#2#1#11'ParentColor'#8#0
+#0#10'TScrollBox'#7'Preview'#4'Left'#2#6#6'Height'#3#147#0#3'Top'#2' '#5'Wid'
+'th'#3#218#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Bo'
+'rderSpacing.Around'#2#6#5'Color'#7#10'clGrayText'#11'ParentColor'#8#8'TabOr'
+'der'#2#0#7'OnPaint'#7#12'PreviewPaint'#0#0#11'TRadioGroup'#10'RadioGroup'#4
+'Left'#2#6#6'Height'#2'i'#3'Top'#3#185#0#5'Width'#2'`'#7'Anchors'#11#6'akLef'
+'t'#8'akBottom'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#10
+'Adjustment'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSp'
+'acing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'
+#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousSpaceResize'#28'ChildSizi'
+'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7
+#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
+'m'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'
+#2'\'#7'Enabled'#8#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'None'#6#7'Stretc'
+'h'#6#4'Crop'#6#6'Center'#0#7'OnClick'#7#24'ColorBoxTransparentClick'#8'TabO'
+'rder'#2#1#0#0#9'TColorBox'#19'ColorBoxTransparent'#21'AnchorSideTop.Control'
+#7#16'LabelTransparent'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'n'#6
+'Height'#2#22#3'Top'#3#209#0#5'Width'#2'`'#8'Selected'#7#9'clFuchsia'#5'Styl'
+'e'#11#16'cbStandardColors'#16'cbExtendedColors'#13'cbCustomColor'#13'cbPret'
+'tyNames'#0#7'Enabled'#8#10'ItemHeight'#2#16#8'OnChange'#7#24'ColorBoxTransp'
+'arentClick'#8'TabOrder'#2#2#0#0#0#7'TBitBtn'#5'BtnOK'#23'AnchorSideRight.Co'
+'ntrol'#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'ModalResult'#2#1#9'NumGlyphs'#2#0#8
+'TabOrder'#2#0#0#0#7'TBitBtn'#9'BtnCancel'#23'AnchorSideRight.Control'#7#8'B'
+'tnApply'#4'Left'#3'F'#1#6'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Anchor'
+'s'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7
+#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#7'TBit'
+'Btn'#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'Anchors'#11#7'akRight'#8'akBotto'
+'m'#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'Le'
+'ft'#3#6#2#6'Height'#2'#'#3'Top'#3'N'#1#5'Width'#2'Z'#7'Anchors'#11#7'akRigh'
+'t'#8'akBottom'#0#20'BorderSpacing.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'TTreeVi'
+'ew'#8'TreeView'#22'AnchorSideLeft.Control'#7#9'GroupBoxL'#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'BorderSp'
+'acing.Around'#2#6#17'DefaultItemHeight'#2#16#13'HideSelection'#8#6'Images'#7
+#9'ImageList'#9'RowSelect'#9#11'ShowButtons'#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'tvoKeep'
+'CollapsedNodes'#12'tvoRowSelect'#11'tvoToolTips'#0#0#0#7'TButton'#6'BtnAdd'
+#3'Tag'#2#1#22'AnchorSideLeft.Control'#7#8'TreeView'#19'AnchorSideLeft.Side'
+#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'GroupBoxL'#23'AnchorSideRight.'
+'Control'#7#9'GroupBoxL'#20'AnchorSideRight.Side'#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'a'
+'kLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#6'Add...'#7'D'
,'efault'#9#7'OnClick'#7#11'BtnAddClick'#8'TabOrder'#2#1#0#0#7'TButton'#8'Btn'
+'Clear'#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'GroupBoxL'#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#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
+#2#6#7'Caption'#6#5'Clear'#7'OnClick'#7#13'BtnClearClick'#8'TabOrder'#2#2#0#0
+#7'TButton'#9'BtnDelete'#22'AnchorSideLeft.Control'#7#8'TreeView'#19'AnchorS'
+'ideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6'BtnAdd'#18'Ancho'
+'rSideTop.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'Border'
+'Spacing.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'AnchorSide'
+'Top.Control'#7#8'BtnClear'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
+'ideRight.Control'#7#9'GroupBoxL'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
+'Left'#3#198#0#6'Height'#2#25#3'Top'#2'c'#5'Width'#3#156#0#7'Anchors'#11#5'a'
+'kTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Mo'
+'ve Up'#7'OnClick'#7#14'BtnMoveUpClick'#8'TabOrder'#2#4#0#0#7'TButton'#11'Bt'
+'nMoveDown'#3'Tag'#2#1#22'AnchorSideLeft.Control'#7#8'TreeView'#19'AnchorSid'
+'eLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'BtnMoveUp'#18'Anch'
+'orSideTop.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'Bor'
+'derSpacing.Around'#2#6#7'Caption'#6#9'Move Down'#7'OnClick'#7#14'BtnMoveUpC'
+'lick'#8'TabOrder'#2#5#0#0#7'TButton'#7'BtnSave'#22'AnchorSideLeft.Control'#7
+#8'TreeView'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'
+#7#11'BtnMoveDown'#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#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'AnchorSideLeft.Side'#7#9'asrBot'
+'tom'#23'AnchorSideRight.Control'#7#9'GroupBoxL'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#4'Left'#3#198#0#6'Height'#2#25#3'Top'#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'btnSaveAllClick'#8'TabOrder'#2#7
+#0#0#0#10'TImageList'#9'ImageList'#4'left'#3#216#0#3'top'#3#246#0#0#0#18'TOp'
+'enPictureDialog'#10'OpenDialog'#11'FilterIndex'#2#0#7'Options'#11#18'ofAllo'
+'wMultiSelect'#15'ofFileMustExist'#14'ofEnableSizing'#12'ofViewDetail'#13'of'
+'AutoPreview'#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'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
]);

View File

@ -90,8 +90,6 @@ type
FModified: Boolean;
FPreviewBmp: TBitmap;
ColorStrings: TSTrings;
procedure FillColorBoxTransparent;
procedure AddItemToColorBox(const s: string);
procedure SavePicture(Picture: TPicture);
public
procedure LoadFromImageList(AImageList: TImageList);
@ -205,8 +203,6 @@ begin
OpenDialog.Title := sccsILEdtOpenDialog;
SaveDialog.Title := sccsILEdtSaveDialog;
FillColorBoxTransparent;
end;
procedure TImageListEditorDlg.FormDestroy(Sender: TObject);
@ -467,20 +463,6 @@ begin
end;
end;
procedure TImageListEditorDlg.FillColorBoxTransparent;
begin
ColorStrings:=TStringList.Create;
GetColorValues(@AddItemToColorBox);
ColorBoxTransparent.Items.Assign(ColorStrings);
ColorStrings.Free;
ColorStrings:=nil;
end;
procedure TImageListEditorDlg.AddItemToColorBox(const s: string);
begin
ColorStrings.Add(s);;
end;
procedure TImageListEditorDlg.LoadFromImageList(AImageList: TImageList);
var
I, C: Integer;