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

CustomDrawn: Completely fills all Common/WinXP fallback colors, this improves TDBGrid in LCL-CustomDrawn

Browse Source 
git-svn-id: trunk@37046 -
This commit is contained in:
sekelsenmat 2012-04-27 07:53:39 +00:00
parent 78b6b700b6
commit c5e4e7f55d
2 changed files with 58 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
lcl/customdrawn_common.pas
View File

@ -161,37 +161,37 @@ end;
procedure TCDDrawerCommon.LoadFallbackPaletteColors;
begin
{ Palette.ScrollBar
Palette.Background
Palette.ActiveCaption
Palette.InactiveCaption
Palette.Menu }
Palette.ScrollBar := $C8D0D4;
Palette.Background := $984E00;
Palette.ActiveCaption := $E35400;
Palette.InactiveCaption := $DF967A;
Palette.Menu := $FFFFFF;
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.WindowFrame := $0;
Palette.MenuText := $0;
Palette.WindowText := $0;
Palette.CaptionText := $FFFFFF;
Palette.ActiveBorder := $C8D0D4;
Palette.InactiveBorder := $C8D0D4;
Palette.AppWorkspace := $808080;
Palette.Highlight := $C56A31;
Palette.HighlightText := $FFFFFF;
Palette.BtnFace := WIN2000_BTNFACE;
{ Palette.BtnShadow
Palette.GrayText
Palette.BtnText
Palette.InactiveCaptionText
Palette.BtnHighlight
Palette.color3DDkShadow
Palette.color3DLight
Palette.InfoText
Palette.InfoBk
Palette.BtnShadow := $99A8AC;
Palette.GrayText := $99A8AC;
Palette.BtnText := $0;
Palette.InactiveCaptionText := $F8E4D8;
Palette.BtnHighlight := $FFFFFF;
Palette.color3DDkShadow := $646F71;
Palette.color3DLight := $E2EFF1;
Palette.InfoText := $0;
Palette.InfoBk := $E1FFFF;
//
Palette.HotLight
Palette.GradientActiveCaption
Palette.GradientInactiveCaption,
Palette.MenuHighlight
Palette.MenuBar}
Palette.HotLight := $800000;
Palette.GradientActiveCaption := $FF953D;
Palette.GradientInactiveCaption := $EBB99D;
Palette.MenuHighlight := $C56A31;
Palette.MenuBar := $D8E9EC;
Palette.Form := WIN2000_FORM;
end;

31
lcl/customdrawn_winxp.pas
View File

@ -18,7 +18,6 @@ type
TCDDrawerWinXP = class(TCDDrawerCommon)
public
//procedure LoadFallbackPaletteColors; override;
// General
function GetMeasures(AMeasureID: Integer): Integer; override;
//function GetMeasuresEx(ADest: TCanvas; AMeasureID: Integer;
@ -135,7 +134,37 @@ end;
procedure TCDDrawerWinXP.LoadFallbackPaletteColors;
begin
Palette.ScrollBar := $C8D0D4;
Palette.Background := $984E00;
Palette.ActiveCaption := $E35400;
Palette.InactiveCaption := $DF967A;
Palette.Menu := $FFFFFF;
Palette.Window := clWhite; // The inside of a Edit control, for example
Palette.WindowFrame := $0;
Palette.MenuText := $0;
Palette.WindowText := $0;
Palette.CaptionText := $FFFFFF;
Palette.ActiveBorder := $C8D0D4;
Palette.InactiveBorder := $C8D0D4;
Palette.AppWorkspace := $808080;
Palette.Highlight := $C56A31;
Palette.HighlightText := $FFFFFF;
Palette.BtnFace := WINXP_FORM;
Palette.BtnShadow := $99A8AC;
Palette.GrayText := $99A8AC;
Palette.BtnText := $0;
Palette.InactiveCaptionText := $F8E4D8;
Palette.BtnHighlight := $FFFFFF;
Palette.color3DDkShadow := $646F71;
Palette.color3DLight := $E2EFF1;
Palette.InfoText := $0;
Palette.InfoBk := $E1FFFF;
//
Palette.HotLight := $800000;
Palette.GradientActiveCaption := $FF953D;
Palette.GradientInactiveCaption := $EBB99D;
Palette.MenuHighlight := $C56A31;
Palette.MenuBar := $D8E9EC;
Palette.Form := WINXP_FORM;
end;