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

MG: fixed fonts in XLFD format and styles

Browse Source 
git-svn-id: trunk@1304 -
This commit is contained in:
lazarus 2002-02-09 01:48:14 +00:00
parent 38a833cac4
commit 852a061e5f
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk/gtkwinapiwindow.pp
View File

@ -349,8 +349,8 @@ var
Widget: PGTKWidget;
HasFocus: boolean;
ForeGroundGC: PGdkGC;
OldGdkFunction: TGdkFunction;
ForeGroundGCValues: TGdkGCValues;
//OldGdkFunction: TGdkFunction;
//ForeGroundGCValues: TGdkGCValues;
begin
if Client = nil then begin
WriteLn('WARNING: [GTKAPIWidgetClient_DrawCaret] Got nil client');
@ -419,8 +419,8 @@ begin
// set draw function to xor
ForeGroundGC:=PGTKStyle(
PGTKWidget(Client)^.theStyle)^.fg_gc[GC_STATE[Integer(Pixmap) <> 1]];
gdk_gc_get_values(ForeGroundGC,@ForeGroundGCValues);
OldGdkFunction:=ForeGroundGCValues.thefunction;
//gdk_gc_get_values(ForeGroundGC,@ForeGroundGCValues);
//OldGdkFunction:=ForeGroundGCValues.thefunction;
gdk_gc_set_function(ForeGroundGC,GDK_invert);
// draw the caret
@ -433,7 +433,7 @@ begin
Width, Height
);
// restore draw function
gdk_gc_set_function(ForeGroundGC,OldGdkFunction);
gdk_gc_set_function(ForeGroundGC,GDK_COPY);
end else
writeln('***: Draw Caret failed: Client=',HexStr(Cardinal(Client),8),' X=',X,' Y=',Y,' W=',Width,' H=',Height,' ',Pixmap<>nil,',',PGTKWidget(Client)^.Window<>nil,',',PGTKWidget(Client)^.theStyle<>nil);
IsDrawn := True;
@ -730,6 +730,9 @@ end.
{ =============================================================================
$Log$
Revision 1.27 2002/06/05 12:34:00 lazarus
MG: fixed fonts in XLFD format and styles
Revision 1.26 2002/06/04 19:28:18 lazarus
MG: cursor is now inverted and can be used with twilight color scheme