paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed parser for external vars

Browse Source 
git-svn-id: trunk@724 -
This commit is contained in:
lazarus 2002-02-09 01:45:51 +00:00
parent 446cb480be
commit d519f188a3
1 changed files with 28 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1890,16 +1890,31 @@ end;
{ *Note: Changes the form's default background color } { *Note: Changes the form's default background color }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TgtkObject.SetColor(Sender : TObject); procedure TgtkObject.SetColor(Sender : TObject);
{var var
TheStyle : pGtkStyle; RCStyle : PGtkRCStyle;
widget : pgtkWidget; Widget : PGTKWidget;
NewColor : TgdkColor;}
begin begin
if Sender is TWincontrol if Sender is TWinControl
then with TWincontrol(Sender) do then with TWinControl(Sender) do
begin begin
// Temphack to set backcolor, till better solution // Temphack to set backcolor, till better solution
if HandleAllocated then SetBKColor(Handle, ColorToRGB(Color)); if HandleAllocated and (Color<>clWindow) then begin
Widget:=PGtkWidget(Handle);
RCStyle:=gtk_rc_style_new;
RCStyle^.bg[GTK_STATE_NORMAL]:=TColortoTGDKColor(Color);
RCStyle^.fg[GTK_STATE_NORMAL]:=TColortoTGDKColor(Color);
RCStyle^.bg_pixmap_name[GTK_STATE_NORMAL]:=nil;
// 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 or GTK_RC_BASE or GTK_RC_FG;
gtk_widget_modify_style(Widget,RCStyle);
gtk_rc_style_unref(RCStyle);
//SetBKColor(Handle, ColorToRGB(Color));
end;
end; end;
@ -3872,10 +3887,11 @@ begin
Assert(False, 'WARNING: TgtkObject.ShowHide - no Fixed Widget found'); Assert(False, 'WARNING: TgtkObject.ShowHide - no Fixed Widget found');
end; end;
end; end;
UnsetResizeRequest(SenderWidget);
end; end;
UnsetResizeRequest(SenderWidget);
gtk_widget_show(SenderWidget); gtk_widget_show(SenderWidget);
SetColor(Sender);
if (Sender is TCustomForm) and (SenderWidget^.Window<>nil) then begin if (Sender is TCustomForm) and (SenderWidget^.Window<>nil) then begin
FormIconGdiObject:=PGDIObject(TCustomForm(Sender).GetIconHandle); FormIconGdiObject:=PGDIObject(TCustomForm(Sender).GetIconHandle);
if (FormIconGdiObject<>nil) then begin if (FormIconGdiObject<>nil) then begin
@ -5289,6 +5305,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.146 2002/07/09 17:18:22 lazarus
MG: fixed parser for external vars
Revision 1.145 2002/06/26 15:11:09 lazarus Revision 1.145 2002/06/26 15:11:09 lazarus
MG: added new tool: Guess misplaced $IFDEF/$ENDIF MG: added new tool: Guess misplaced $IFDEF/$ENDIF