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

fixed scrolling offset of TScrollingWinControl

Browse Source 
git-svn-id: trunk@2011 -
This commit is contained in:
mattias 2002-08-17 23:40:37 +00:00
parent 9d188370ec
commit 8e135ecbd4
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2650,7 +2650,6 @@ var
RCStyle : PGtkRCStyle; RCStyle : PGtkRCStyle;
Widget, FixWidget : PGTKWidget; Widget, FixWidget : PGTKWidget;
begin begin
{$IfNdef Win32}
if Sender is TWinControl if Sender is TWinControl
then with TWinControl(Sender) do then with TWinControl(Sender) do
begin begin
@ -2660,6 +2659,7 @@ begin
FixWidget:=GetFixedWidget(Widget); FixWidget:=GetFixedWidget(Widget);
If FixWidget <> Widget then Widget := FixWidget; If FixWidget <> Widget then Widget := FixWidget;
{$IfNdef Win32}
// set default background // set default background
if (Color=clNone) and (FixWidget^.Window<>nil) then if (Color=clNone) and (FixWidget^.Window<>nil) then
gdk_window_set_back_pixmap(FixWidget^.Window,nil,0) gdk_window_set_back_pixmap(FixWidget^.Window,nil,0)
@ -2670,7 +2670,7 @@ begin
if GtkWidgetIsA(PGtkWidget(Handle),GTKAPIWidget_GetType) then exit; if GtkWidgetIsA(PGtkWidget(Handle),GTKAPIWidget_GetType) then exit;
RCStyle:=gtk_rc_style_new; RCStyle:=gtk_rc_style_new;
RCStyle^.bg[GTK_STATE_NORMAL]:=TColortoTGDKColor(Color); RCStyle^.bg[GTK_STATE_NORMAL]:=TColorToTGDKColor(Color);
// Indicate which colors the GtkRcStyle will affect; // Indicate which colors the GtkRcStyle will affect;
// unflagged colors will follow the theme // unflagged colors will follow the theme
@ -2682,12 +2682,13 @@ begin
//SetBKColor(Handle, ColorToRGB(Color)); //SetBKColor(Handle, ColorToRGB(Color));
end; end;
end;
end;
{$Else} {$Else}
if ColorIsStored then
Writeln('WARNING: [TgtkObject.SetColor] NOT supported under Win32 GTK') Writeln('WARNING: [TgtkObject.SetColor] NOT supported under Win32 GTK')
{$EndIf} {$EndIf}
end; end;
end;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: TGTKObject.SetCallback Function: TGTKObject.SetCallback
@ -6838,6 +6839,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.321 2003/01/18 21:31:43 mattias
fixed scrolling offset of TScrollingWinControl
Revision 1.320 2003/01/18 19:03:38 mattias Revision 1.320 2003/01/18 19:03:38 mattias
fixed TSpinEdit.Value fixed TSpinEdit.Value