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

fixed gtk2 intf scrollbar handling from Danny Milosavljevic

Browse Source 
git-svn-id: trunk@6887 -
This commit is contained in:
mattias 2005-03-04 12:28:11 +00:00
parent a25dc800f1
commit cbe336218b
3 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2516,7 +2516,8 @@ begin
end;
end;
function GTK26HScrollCB(Range:PGTKRAnge; Scroll: PGtkScrollType; Value: gdouble;
function GTK26HScrollCB(Range:PGTKRAnge; Scroll: TGtkScrollType;
Value: gdouble;
data: gpointer): gboolean; cdecl;
var
Msg: TLMHScroll;
@ -2526,13 +2527,13 @@ begin
with Msg do begin
pos := Round(Range^.Adjustment^.Value);
ScrollBar := HWND(Range);
ScrollCode := ScrollTypeToSbCode(False, Scroll^,
ScrollCode := ScrollTypeToSbCode(False, Scroll,
gtk_range_get_update_policy(Range));
end;
DeliverMessage(Data, Msg);
end;
function GTK26VScrollCB(Range:PGTKRAnge; Scroll: PGtkScrollType; Value: gdouble;
function GTK26VScrollCB(Range:PGTKRAnge; Scroll: TGtkScrollType; Value: gdouble;
data: gpointer): gboolean; cdecl;
var
Msg: TLMVScroll;
@ -2542,7 +2543,7 @@ begin
with Msg do begin
pos := Round(Range^.Adjustment^.Value);
ScrollBar := HWND(Range);
ScrollCode := ScrollTypeToSbCode(True, Scroll^,
ScrollCode := ScrollTypeToSbCode(True, Scroll,
gtk_range_get_update_policy(Range));
end;
DeliverMessage(Data, Msg);
@ -2975,6 +2976,9 @@ end;
{ =============================================================================
$Log$
Revision 1.273 2005/03/04 12:28:11 mattias
fixed gtk2 intf scrollbar handling from Danny Milosavljevic
Revision 1.272 2005/03/04 12:21:55 mattias
fixed TShape FPCanvas issue

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

@ -3483,7 +3483,7 @@ begin
gObject := gtk_object_get_data(gObject, odnScrollArea);
Scroll := PgtkObject(PGtkScrolledWindow(gObject)^.HScrollBar);
end;
ConnectSenderSignal(Scroll,'changed-value', @GTK26HScrollCB);
ConnectSenderSignal(Scroll,'change-value', @GTK26HScrollCB);
end else begin
if ALCLObject is TScrollBar then
Adjustment := PgtkObject(PgtkhScrollBar(gObject)^.Scrollbar.Range.Adjustment)
@ -3509,7 +3509,7 @@ begin
gObject := gtk_object_get_data(gObject, odnScrollArea);
Scroll := PGtkObject(PGtkScrolledWindow(gObject)^.VScrollBar);
end;
connectSenderSignal(Scroll,'changed-value', @GTK26VScrollCB);
connectSenderSignal(Scroll,'change-value', @GTK26VScrollCB);
end else begin
if ALCLObject is TScrollBar then
Adjustment := PGtkObject(PgtkhScrollBar(gObject)^.Scrollbar.Range.Adjustment)
@ -6998,6 +6998,9 @@ end;
{ =============================================================================
$Log$
Revision 1.636 2005/03/04 12:28:11 mattias
fixed gtk2 intf scrollbar handling from Danny Milosavljevic
Revision 1.635 2005/03/04 12:21:55 mattias
fixed TShape FPCanvas issue

4
lcl/interfaces/gtk/gtkproc.pp
View File

@ -208,9 +208,9 @@ function gtkFocusInNotifyCB (widget: PGtkWidget; event: PGdkEvent;
data: gpointer): GBoolean; cdecl;
function gtkFocusOutNotifyCB (widget: PGtkWidget; event: PGdkEvent;
data: gpointer): GBoolean; cdecl;
function GTK26HScrollCB(Range: PGTKRange; Scroll: PGtkScrollType; Value: gdouble;
function GTK26HScrollCB(Range: PGTKRange; Scroll: TGtkScrollType; Value: gdouble;
data: gpointer): gboolean; cdecl;
function GTK26VScrollCB(Range: PGTKRange; Scroll: PGtkScrollType; Value: gdouble;
function GTK26VScrollCB(Range: PGTKRange; Scroll: TGtkScrollType; Value: gdouble;
data: gpointer): gboolean; cdecl;
function GTKHScrollCB(Adjustment: PGTKAdjustment; data: GPointer): GBoolean; cdecl;
function GTKVScrollCB(Adjustment: PGTKAdjustment;