mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-30 18:56:56 +02:00
- Removed double commit (?)
git-svn-id: trunk@6832 -
This commit is contained in:
parent
66aff6fe55
commit
943df8ed1d
@ -1761,22 +1761,6 @@ begin
|
|||||||
GDK_Visual_Ref(GObject^.PaletteVisual);
|
GDK_Visual_Ref(GObject^.PaletteVisual);
|
||||||
end;
|
end;
|
||||||
GObject^.PaletteColormap := GDK_Colormap_new(GObject^.PaletteVisual, GdkTrue);
|
GObject^.PaletteColormap := GDK_Colormap_new(GObject^.PaletteVisual, GdkTrue);
|
||||||
GObject^.SystemPalette := False;
|
|
||||||
GObject^.PaletteRealized := False;
|
|
||||||
GObject^.VisualType := GDK_VISUAL_PSEUDO_COLOR;
|
|
||||||
GObject^.PaletteVisual := nil;
|
|
||||||
|
|
||||||
{$IFDEF DebugGDKTraps}
|
|
||||||
BeginGDKErrorTrap;
|
|
||||||
{$ENDIF}
|
|
||||||
|
|
||||||
GObject^.PaletteVisual := gdk_visual_get_best_with_type(GObject^.VisualType);
|
|
||||||
if GObject^.PaletteVisual = nil
|
|
||||||
then begin
|
|
||||||
GObject^.PaletteVisual := GDK_Visual_Get_System;
|
|
||||||
GDK_Visual_Ref(GObject^.PaletteVisual);
|
|
||||||
end;
|
|
||||||
GObject^.PaletteColormap := GDK_Colormap_new(GObject^.PaletteVisual, GdkTrue);
|
|
||||||
|
|
||||||
{$IFDEF DebugGDKTraps}
|
{$IFDEF DebugGDKTraps}
|
||||||
EndGDKErrorTrap;
|
EndGDKErrorTrap;
|
||||||
@ -8940,6 +8924,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.401 2005/02/23 01:21:54 marc
|
||||||
|
- Removed double commit (?)
|
||||||
|
|
||||||
Revision 1.400 2005/02/23 01:12:47 marc
|
Revision 1.400 2005/02/23 01:12:47 marc
|
||||||
+ Added RemoveProp winapi call
|
+ Added RemoveProp winapi call
|
||||||
* Some maintenace on winapi/lclintf files
|
* Some maintenace on winapi/lclintf files
|
||||||
|
Loading…
Reference in New Issue
Block a user