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

added exception handling for createpixmapindirect

Browse Source 
git-svn-id: trunk@2394 -
This commit is contained in:
mattias 2002-08-17 23:41:20 +00:00
parent 61d2a8145f
commit efe3ab437e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -400,7 +400,7 @@ function IndexOfStyle(const WName : String): integer;
Procedure ReleaseStyle(const WName : String);
function GetStyle(const WName : String) : PGTKStyle;
Function GetStyleWidget(WName : String) : PGTKWidget;
function GetDefaultFont : PGDKFont;
function LoadDefaultFont: PGDKFont;
Function GetSysGCValues(Color : TColorRef) : TGDKGCValues;
Function DeleteAmpersands(var Str : String) : Longint;