paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 09:58:14 +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

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

@ -2650,7 +2650,6 @@ var
RCStyle : PGtkRCStyle;
Widget, FixWidget : PGTKWidget;
begin
{$IfNdef Win32}
if Sender is TWinControl
then with TWinControl(Sender) do
begin
@ -2660,6 +2659,7 @@ begin
FixWidget:=GetFixedWidget(Widget);
If FixWidget <> Widget then Widget := FixWidget;
{$IfNdef Win32}
// set default background
if (Color=clNone) and (FixWidget^.Window<>nil) then
gdk_window_set_back_pixmap(FixWidget^.Window,nil,0)
@ -2670,7 +2670,7 @@ begin
if GtkWidgetIsA(PGtkWidget(Handle),GTKAPIWidget_GetType) then exit;
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;
// unflagged colors will follow the theme
@ -2682,11 +2682,12 @@ begin
//SetBKColor(Handle, ColorToRGB(Color));
end;
{$Else}
if ColorIsStored then
Writeln('WARNING: [TgtkObject.SetColor] NOT supported under Win32 GTK')
{$EndIf}
end;
end;
{$Else}
Writeln('WARNING: [TgtkObject.SetColor] NOT supported under Win32 GTK')
{$EndIf}
end;
{------------------------------------------------------------------------------
@ -6838,6 +6839,9 @@ end;
{ =============================================================================
$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
fixed TSpinEdit.Value