paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 22:00:38 +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; procedure TGTKWidgetSet.DrawDefaultDockImage(AOldRect, ANewRect: TRect;
AOperation: TDockImageOperation); AOperation: TDockImageOperation);
const const
LineWidth = 3; LineWidth = 2;
var var
Mask: PGdkBitmap; Mask: PGdkBitmap;
gc: PGdkGC; gc: PGdkGC;

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

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