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

Starts preparing to add more customdrawn_common colors

Browse Source 
git-svn-id: trunk@37045 -
This commit is contained in:
sekelsenmat 2012-04-27 07:08:54 +00:00
parent 3039cc08bb
commit 78b6b700b6
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/customdrawn_common.pas
View File

@ -161,9 +161,38 @@ end;
procedure TCDDrawerCommon.LoadFallbackPaletteColors;
begin
Palette.BtnFace := WIN2000_BTNFACE;
Palette.Form := WIN2000_FORM;
{ Palette.ScrollBar
Palette.Background
Palette.ActiveCaption
Palette.InactiveCaption
Palette.Menu }
Palette.Window := clWhite; // The inside of a Edit control, for example
{ Palette.WindowFrame
Palette.MenuText
Palette.WindowText
Palette.CaptionText
Palette.ActiveBorder
Palette.InactiveBorder
Palette.AppWorkspace
Palette.Highlight
Palette.HighlightText}
Palette.BtnFace := WIN2000_BTNFACE;
{ Palette.BtnShadow
Palette.GrayText
Palette.BtnText
Palette.InactiveCaptionText
Palette.BtnHighlight
Palette.color3DDkShadow
Palette.color3DLight
Palette.InfoText
Palette.InfoBk
//
Palette.HotLight
Palette.GradientActiveCaption
Palette.GradientInactiveCaption,
Palette.MenuHighlight
Palette.MenuBar}
Palette.Form := WIN2000_FORM;
end;
function TCDDrawerCommon.GetMeasures(AMeasureID: Integer): Integer;