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

gtk: formatting

Browse Source 
git-svn-id: trunk@20076 -
This commit is contained in:
paul 2009-05-20 11:56:07 +00:00
parent 7f89f0f960
commit 69d96a1d70
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtklclintf.inc
View File

@ -33,7 +33,7 @@
procedure TGTKWidgetSet.DrawDefaultDockImage(AOldRect, ANewRect: TRect;
AOperation: TDockImageOperation);
const
LineWidth = 3;
LineWidth = 2;
var
Mask: PGdkBitmap;
gc: PGdkGC;

10
lcl/interfaces/gtk/gtkwidgetset.inc
View File

@ -1094,27 +1094,29 @@ begin
//RaiseGDBException('');
if ChangeFGColor then
begin
xfg := AllocGDKColor(colorToRGB(FGColor));
xfg := AllocGDKColor(ColorToRGB(FGColor));
for i := GTK_STATE_NORMAL to GTK_STATE_INSENSITIVE do
begin
if i in mask then
begin
if GTK_STYLE_TEXT in mask then
gtk_widget_modify_text(AWidget, i ,@xfg)
else gtk_widget_modify_fg(AWidget, i ,@xfg);
else
gtk_widget_modify_fg(AWidget, i ,@xfg);
end;
end;
end;
if ChangeBGColor then
begin
xbg := AllocGDKColor(colorToRGB(BGColor));
xbg := AllocGDKColor(ColorToRGB(BGColor));
for i := GTK_STATE_NORMAL to GTK_STATE_INSENSITIVE do
begin
if i in mask then
begin
if GTK_STYLE_BASE in mask then
gtk_widget_modify_base(AWidget, i ,@xbg)
else gtk_widget_modify_bg(AWidget, i ,@xbg);
else
gtk_widget_modify_bg(AWidget, i ,@xbg);
end;
end;
end;