paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 00:34:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2 intf: write warning if liboverlay scrollbar is active

Browse Source 
git-svn-id: trunk@36895 -
This commit is contained in:
mattias 2012-04-18 16:29:21 +00:00
parent 6dd2c82a02
commit 284bdd4cec
3 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -4513,7 +4513,9 @@ var
pt: TPoint;
ScrollHint: THintWindow;
begin
//debugln('TCustomSynEdit.WMVScroll A ',DbgSName(Self),' Msg.ScrollCode=',dbgs(Msg.ScrollCode),' SB_PAGEDOWN=',dbgs(SB_PAGEDOWN),' SB_PAGEUP=',dbgs(SB_PAGEUP));
{$IFDEF SYNSCROLLDEBUG}
debugln('TCustomSynEdit.WMVScroll A ',DbgSName(Self),' Msg.ScrollCode=',dbgs(Msg.ScrollCode),' SB_PAGEDOWN=',dbgs(SB_PAGEDOWN),' SB_PAGEUP=',dbgs(SB_PAGEUP));
{$ENDIF}
case Msg.ScrollCode of
// Scrolls to start / end of the text
SB_TOP: TopView := 1;

11
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -2924,7 +2924,9 @@ begin
//TODO: implement SB_THUMBPOSITION message after track is finished
Result := CallBackDefaultReturn;
//DebugLn(Format('Trace:[GTKVScrollCB] Value: %d', [RoundToInt(Adjustment^.Value)]));
{$IFDEF SYNSCROLLDEBUG}
DebugLn(Format('Trace:[GTKVScrollCB] Value: %d', [RoundToInt(Adjustment^.Value)]));
{$ENDIF}
Scroll := PgtkRange(gtk_object_get_data(PGTKObject(Adjustment), odnScrollBar));
if Scroll<>nil then begin
Msg.Msg := LM_VSCROLL;
@ -2955,7 +2957,9 @@ begin
Result := CallBackDefaultReturn;
Widget:=PGTKWidget(ARange);
//DebugLn(Format('Trace:[Gtk2RangeScrollCB] Value: %d', [RoundToInt(AValue)]));
{$IFDEF SYNSCROLLDEBUG}
DebugLn(Format('Trace:[Gtk2RangeScrollCB] Value: %d', [RoundToInt(AValue)]));
{$ENDIF}
if G_OBJECT_TYPE(ARange) = gtk_hscrollbar_get_type then
Msg.Msg := LM_HSCROLL
else
@ -3027,6 +3031,9 @@ var
AValue: Double;
Range: PGtkRange;
begin
{$IFDEF SYNSCROLLDEBUG}
debugln(['Gtk2ScrolledWindowScrollCB ']);
{$ENDIF}
case AEvent^.direction of
GDK_SCROLL_UP,
GDK_SCROLL_DOWN: Msg.Msg := LM_VSCROLL;

6
lcl/interfaces/gtk2/gtk2wscontrols.pp
View File

@ -186,6 +186,12 @@ begin
TGtk2WSWinControl.SetCallbacks(GTK_OBJECT(Widget), AWinControl);
if (GetWidgetClassName(GTK_SCROLLED_WINDOW(Widget)^.vscrollbar)='OsScrollbar')
or (GetWidgetClassName(GTK_SCROLLED_WINDOW(Widget)^.hscrollbar)='OsScrollbar')
then begin
// ubuntu liboverlay scrollbar is active
debugln(['WARNING: liboverlay_scrollbar is active for control=',AWinControl,'. Set environment option LIBOVERLAY_SCROLLBAR=0 before starting this application, otherwise scrollbars will not work properly.']);
end;
g_signal_connect_after(GTK_SCROLLED_WINDOW(Widget)^.hscrollbar, 'change-value',
TGCallback(@Gtk2RangeScrollCB), WidgetInfo);
g_signal_connect_after(GTK_SCROLLED_WINDOW(Widget)^.vscrollbar, 'change-value',