paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 22:26:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: fix compilation

Browse Source 
git-svn-id: trunk@19713 -
This commit is contained in:
paul 2009-04-30 16:19:32 +00:00
parent 020618fa6c
commit cc1aa6345c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwsstdctrls.pp
View File

@ -1689,7 +1689,7 @@ begin
if LblWidget<>nil then
begin
GtkWidgetSet.SetWidgetColor(LblWidget, AFont.Ñolor, clNone,
GtkWidgetSet.SetWidgetColor(LblWidget, AFont.Color, clNone,
[GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED]);
GtkWidgetSet.SetWidgetFont(LblWidget, AFont);
end;
@ -1844,7 +1844,7 @@ begin
AWidget:= GetWidgetInfo(AWidget, true)^.CoreWidget;
if AWidget<>nil then begin
GtkWidgetSet.SetWidgetColor(AWidget, AFont.Ñolor, clNone,
GtkWidgetSet.SetWidgetColor(AWidget, AFont.Color, clNone,
[GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED,
GTK_STYLE_TEXT]);
GtkWidgetSet.SetWidgetFont(AWidget, AFont);