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

ideintf: add Default color to imagelist editor

Browse Source 
git-svn-id: trunk@23661 -
This commit is contained in:
paul 2010-02-08 03:27:37 +00:00
parent c1597f9714
commit 43b99f14d4
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/imagelisteditor.lfm
View File

@ -12,7 +12,7 @@ object ImageListEditorDlg: TImageListEditorDlg
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '0.9.29'
object GroupBoxR: TGroupBox
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
@ -95,11 +95,9 @@ object ImageListEditorDlg: TImageListEditorDlg
Top = 231
Width = 96
Selected = clFuchsia
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
AutoComplete = False
Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
Enabled = False
ItemHeight = 16
ItemWidth = 0
OnChange = ColorBoxTransparentClick
TabOrder = 2
end
@ -154,7 +152,6 @@ object ImageListEditorDlg: TImageListEditorDlg
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Add...'
Default = True
OnClick = BtnAddClick
TabOrder = 1
end

6
ideintf/imagelisteditor.pp
View File

@ -148,9 +148,9 @@ begin
Result.Canvas.FillRect(Bounds(0, 0, Width, Height));
case Adjustment of
gaStretch: Result.Canvas.StretchDraw(Bounds(0, 0, Width, Height), B);
gaCrop: Result.Canvas.Draw(0, 0, B);
gaCenter: Result.Canvas.Draw((Width - B.Width) div 2, (Height - B.Height) div 2, B);
gaStretch: Result.Canvas.StretchDraw(Bounds(0, 0, Width, Height), B);
gaCrop: Result.Canvas.Draw(0, 0, B);
gaCenter: Result.Canvas.Draw((Width - B.Width) div 2, (Height - B.Height) div 2, B);
end;
end;
if TransparentColor = clDefault then