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

fixed SetColor

Browse Source 
git-svn-id: trunk@1971 -
This commit is contained in:
mattias 2002-08-17 23:40:27 +00:00
parent e3d4a67ca1
commit debbbef933
1 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2647,34 +2647,38 @@ var
RCStyle : PGtkRCStyle;
Widget, FixWidget : PGTKWidget;
begin
exit;
{$IfNdef Win32}
if Sender is TWinControl
then with TWinControl(Sender) do
begin
// Temphack to set backcolor, till better solution
if HandleAllocated and ((Color and SYS_COLOR_BASE)=0) then begin
if HandleAllocated then begin
Widget:=PGtkWidget(Handle);
// don't set background for custom controls (to prevent flickering)
if GtkWidgetIsA(Widget,GTKAPIWidget_GetType) then exit;
FixWidget:=GetFixedWidget(Widget);
If FixWidget <> Widget then Widget := FixWidget;
RCStyle:=gtk_rc_style_new;
RCStyle^.bg[GTK_STATE_NORMAL]:=TColortoTGDKColor(Color);
// set default background
if (Color=clNone) and (FixWidget^.Window<>nil) then
gdk_window_set_back_pixmap(FixWidget^.Window,nil,0)
else
if (not ColorIsStored)
and ((Color and SYS_COLOR_BASE)=0) then begin
// don't set background for custom controls (to prevent flickering)
if GtkWidgetIsA(PGtkWidget(Handle),GTKAPIWidget_GetType) then exit;
// Indicate which colors the GtkRcStyle will affect;
// unflagged colors will follow the theme
RCStyle^.color_flags[GTK_STATE_NORMAL]:=
RCStyle^.color_flags[GTK_STATE_NORMAL] or GTK_RC_BG;
RCStyle:=gtk_rc_style_new;
RCStyle^.bg[GTK_STATE_NORMAL]:=TColortoTGDKColor(Color);
gtk_widget_modify_style(Widget,RCStyle);
gtk_rc_style_unref(RCStyle);
// Indicate which colors the GtkRcStyle will affect;
// unflagged colors will follow the theme
RCStyle^.color_flags[GTK_STATE_NORMAL]:=
RCStyle^.color_flags[GTK_STATE_NORMAL] or GTK_RC_BG;
//SetBKColor(Handle, ColorToRGB(Color));
gtk_widget_modify_style(Widget,RCStyle);
gtk_rc_style_unref(RCStyle);
//SetBKColor(Handle, ColorToRGB(Color));
end;
end;
end;
{$Else}
@ -6820,6 +6824,9 @@ end;
{ =============================================================================
$Log$
Revision 1.311 2002/12/27 17:46:04 mattias
fixed SetColor
Revision 1.310 2002/12/27 17:12:38 mattias
added more Delphi win32 compatibility functions