paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 09:39:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix a compile problem, still need to find the correct way to fix that.

Browse Source 
git-svn-id: trunk@5891 -
This commit is contained in:
mazen 2004-08-30 15:46:22 +00:00
parent 56ae7a60a2
commit f7d016f205
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkproc.inc
View File

@ -751,10 +751,18 @@ begin
Result:=Result+'nil'
else begin
Result:=Result+'name="'+AStyle^.name+'" ';
{$IFDEF GTK1}
Result:=Result+'font_name="'+AStyle^.font_name+'" ';
Result:=Result+'fontset_name="'+AStyle^.fontset_name+'" ';
{$ELSE GTK1}
{$WARNING TODO find GTK2 font naming}
{$ENDIF GTK1}
Result:=Result+'bg_pixmap_name[N]="'+AStyle^.bg_pixmap_name[GTK_STATE_NORMAL]+'" ';
{$IFDEF GTK1}
Result:=Result+'engine='+HexStr(Cardinal(AStyle^.engine),8);
{$ELSE GTK1}
{$WARNING TODO find GTK2 theme engine}
{$ENDIF GTK1}
end;
Result:=Result+']';
end;
@ -7190,6 +7198,9 @@ end;
{ =============================================================================
$Log$
Revision 1.298 2004/08/30 15:46:22 mazen
* Fix a compile problem, still need to find the correct way to fix that.
Revision 1.297 2004/08/30 10:49:20 mattias
fixed focus catch for combobox csDropDownList