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

custom controls now support child wincontrols

Browse Source 
git-svn-id: trunk@2165 -
This commit is contained in:
mattias 2002-08-17 23:41:03 +00:00
parent e36197ff51
commit 18773f3584
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -429,7 +429,7 @@ var
gdk_gc_set_fill(GC, fill); gdk_gc_set_fill(GC, fill);
AllocFG := Foreground.Pixel = 0; AllocFG := Foreground.Pixel = 0;
If AllocFG then If AllocFG then
gdk_colormap_alloc_color(GDK_Colormap_get_system, @Foreground,True,True); gdk_colormap_alloc_color(GDK_Colormap_get_system,@Foreground,True,True);
gdk_gc_set_foreground(GC, @foreground); gdk_gc_set_foreground(GC, @foreground);
Case Fill of Case Fill of
GDK_TILED : GDK_TILED :
@ -3948,6 +3948,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.153 2002/12/22 22:42:55 mattias
custom controls now support child wincontrols
Revision 1.152 2002/02/09 01:48:23 mattias Revision 1.152 2002/02/09 01:48:23 mattias
renamed TinterfaceObject.Init to AppInit and TWinControls can now contain childs in gtk renamed TinterfaceObject.Init to AppInit and TWinControls can now contain childs in gtk