paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 11:21:35 +01: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; procedure TCDDrawerCommon.LoadFallbackPaletteColors;
begin begin
{ Palette.ScrollBar Palette.ScrollBar := $C8D0D4;
Palette.Background Palette.Background := $984E00;
Palette.ActiveCaption Palette.ActiveCaption := $E35400;
Palette.InactiveCaption Palette.InactiveCaption := $DF967A;
Palette.Menu } Palette.Menu := $FFFFFF;
Palette.Window := clWhite; // The inside of a Edit control, for example Palette.Window := clWhite; // The inside of a Edit control, for example
{ Palette.WindowFrame Palette.WindowFrame := $0;
Palette.MenuText Palette.MenuText := $0;
Palette.WindowText Palette.WindowText := $0;
Palette.CaptionText Palette.CaptionText := $FFFFFF;
Palette.ActiveBorder Palette.ActiveBorder := $C8D0D4;
Palette.InactiveBorder Palette.InactiveBorder := $C8D0D4;
Palette.AppWorkspace Palette.AppWorkspace := $808080;
Palette.Highlight Palette.Highlight := $C56A31;
Palette.HighlightText} Palette.HighlightText := $FFFFFF;
Palette.BtnFace := WIN2000_BTNFACE; Palette.BtnFace := WIN2000_BTNFACE;
{ Palette.BtnShadow Palette.BtnShadow := $99A8AC;
Palette.GrayText Palette.GrayText := $99A8AC;
Palette.BtnText Palette.BtnText := $0;
Palette.InactiveCaptionText Palette.InactiveCaptionText := $F8E4D8;
Palette.BtnHighlight Palette.BtnHighlight := $FFFFFF;
Palette.color3DDkShadow Palette.color3DDkShadow := $646F71;
Palette.color3DLight Palette.color3DLight := $E2EFF1;
Palette.InfoText Palette.InfoText := $0;
Palette.InfoBk Palette.InfoBk := $E1FFFF;
// //
Palette.HotLight Palette.HotLight := $800000;
Palette.GradientActiveCaption Palette.GradientActiveCaption := $FF953D;
Palette.GradientInactiveCaption, Palette.GradientInactiveCaption := $EBB99D;
Palette.MenuHighlight Palette.MenuHighlight := $C56A31;
Palette.MenuBar} Palette.MenuBar := $D8E9EC;
Palette.Form := WIN2000_FORM; Palette.Form := WIN2000_FORM;
end; end;

31
lcl/customdrawn_winxp.pas
View File

@ -18,7 +18,6 @@ type
TCDDrawerWinXP = class(TCDDrawerCommon) TCDDrawerWinXP = class(TCDDrawerCommon)
public public
//procedure LoadFallbackPaletteColors; override;
// General // General
function GetMeasures(AMeasureID: Integer): Integer; override; function GetMeasures(AMeasureID: Integer): Integer; override;
//function GetMeasuresEx(ADest: TCanvas; AMeasureID: Integer; //function GetMeasuresEx(ADest: TCanvas; AMeasureID: Integer;
@ -135,7 +134,37 @@ end;
procedure TCDDrawerWinXP.LoadFallbackPaletteColors; procedure TCDDrawerWinXP.LoadFallbackPaletteColors;
begin 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.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; Palette.Form := WINXP_FORM;
end; end;