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

MG: improved theme support from Andrew

Browse Source 
git-svn-id: trunk@751 -
This commit is contained in:
lazarus 2002-02-09 01:46:18 +00:00
parent 95f4a8bd3a
commit 0097bf0ce6
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk/gtkobject.inc
View File

@ -574,8 +574,14 @@ procedure TGtkObject.AppTerminate;
DeleteObject(h); DeleteObject(h);
h:=0; h:=0;
end; end;
var
I : Integer;
begin begin
For I := Styles.Count - 1 downto 0 do
ReleaseStyle(Styles[I]);
Styles.Free;
DestroyGdkCursor(Cursor_Watch); DestroyGdkCursor(Cursor_Watch);
DestroyGdkCursor(Cursor_Arrow); DestroyGdkCursor(Cursor_Arrow);
DestroyGdkCursor(Cursor_Cross); DestroyGdkCursor(Cursor_Cross);
@ -632,6 +638,9 @@ begin
FRCFileParsed:=true; FRCFileParsed:=true;
ParseRCFile; ParseRCFile;
// Initialize Stringlist for holding styles
Styles := TStringlist.Create;
// Create default cursor types // Create default cursor types
Cursor_Watch := gdk_Cursor_New(gdk_Watch); Cursor_Watch := gdk_Cursor_New(gdk_Watch);
Cursor_Arrow := gdk_Cursor_New(gdk_Arrow); Cursor_Arrow := gdk_Cursor_New(gdk_Arrow);
@ -2073,6 +2082,7 @@ begin
begin begin
ConnectSenderSignal(gFixed, 'expose-event', @GTKExposeEvent); ConnectSenderSignal(gFixed, 'expose-event', @GTKExposeEvent);
ConnectSenderSignal(gFixed, 'draw', @GTKDraw); ConnectSenderSignal(gFixed, 'draw', @GTKDraw);
ConnectSenderSignal(gFixed,'style-set', @GTKStyleChanged);
end; end;
LM_FOCUS : LM_FOCUS :
@ -5311,6 +5321,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.173 2002/08/22 16:43:35 lazarus
MG: improved theme support from Andrew
Revision 1.172 2002/08/22 07:30:15 lazarus Revision 1.172 2002/08/22 07:30:15 lazarus
MG: freeing more unused GCs MG: freeing more unused GCs