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

MG: gradient fill, minor issues from Andrew

Browse Source 
git-svn-id: trunk@825 -
This commit is contained in:
lazarus 2002-02-09 01:46:56 +00:00
parent 5bd8982a54
commit 3425ca1904
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,7 +61,7 @@ end;
destructor TgtkObject.Destroy;
const
GDITYPENAME: array[TGDIType] of String = ('gdiBitmap', 'gdiBrush'
,'gdiFont', 'gdiPen', 'gdiRegion');
,'gdiFont', 'gdiPen', 'gdiRegion', 'gdiPalette');
var
n: Integer;
p: PMsg;
@ -238,7 +238,7 @@ procedure TgtkObject.SendCachedLCLMessages;
ParentWidget:=pgtkWidget(LCLControl.Parent.Handle);
ParentFixed := GetFixedWidget(ParentWidget);
if GtkWidgetIsA(ParentFixed,GTK_FIXED_GET_TYPE)
or GtkWidgetIsA(ParentWidget,GTK_LAYOUT_GET_TYPE) then begin
or GtkWidgetIsA(ParentFixed,GTK_LAYOUT_GET_TYPE) then begin
FixedMoveControl(ParentFixed, Widget,
LCLControl.Left, LCLControl.Top);
end else if not (LCLControl.Parent is TNoteBook) then begin
@ -788,6 +788,12 @@ begin
gdk_window_get_geometry(GdiObject^.GDIPixmapObject,
nil, nil, @Width, @Height, @Depth);
If GdiObject^.Visual <> nil then
GDK_Visual_UnRef(GdiObject^.Visual);
If GdiObject^.Colormap <> nil then
GDK_Colormap_UnRef(GdiObject^.Colormap);
GdiObject^.Visual := gdk_window_get_visual(GdiObject^.GDIpixmapObject);
If GdiObject^.Visual = nil then
GdiObject^.Visual := gdk_visual_get_best_with_depth(Depth)
@ -2031,7 +2037,7 @@ var
begin
Assert(False, 'Trace:ADDCHILD');
pFixed := GetFixedWidget(PGtkWidget(Parent));
if pFixed <> nil then
if pFixed <> Parent then
FixedPutControl(pFixed, Child, Left, Top);
// gtk_object_set_data(PgtkObject(Child),'Owner',Parent);
end;
@ -2255,7 +2261,7 @@ begin
Widget:=PGtkWidget(Handle);
FixWidget:=GetFixedWidget(Widget);
If FixWidget <> nil then Widget := FixWidget;
If FixWidget <> Widget then Widget := FixWidget;
RCStyle:=gtk_rc_style_new;
RCStyle^.bg[GTK_STATE_NORMAL]:=TColortoTGDKColor(Color);
@ -4254,7 +4260,8 @@ begin
// move widget on the fixed widget of parent control
ParentWidget:=pgtkWidget(LCLControl.Parent.Handle);
ParentFixed := GetFixedWidget(ParentWidget);
if ParentFixed <> nil then begin
if GtkWidgetIsA(ParentFixed,GTK_FIXED_GET_TYPE)
or GtkWidgetIsA(ParentFixed,GTK_LAYOUT_GET_TYPE) then begin
FixedMoveControl(ParentFixed, SenderWidget,
LCLControl.Left, LCLControl.Top);
end else if not (LCLControl.Parent is TNoteBook) then begin
@ -5827,6 +5834,9 @@ end;
{ =============================================================================
$Log$
Revision 1.211 2002/09/12 05:56:16 lazarus
MG: gradient fill, minor issues from Andrew
Revision 1.210 2002/09/10 17:30:16 lazarus
MG: added TLabel.WordWrap for gtk-interface from Vincent