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

Gtk2: fixed columns resizing by mouse. issue #21354

Browse Source 
git-svn-id: trunk@35569 -
This commit is contained in:
zeljko 2012-02-23 17:24:04 +00:00
parent a9c8726408
commit 967f02d777
3 changed files with 39 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1274,11 +1274,42 @@ end;
Returns true, if mouse move event should be sent before the widget istelf
reacts.
-------------------------------------------------------------------------------}
function ControlGetsMouseMoveBefore(AControl: TControl): boolean;
function ControlGetsMouseMoveBefore(AControl: TControl;
const ABefore: Boolean; Event: PGDKEventMotion): boolean;
var
ShiftState: TShiftState;
Widget: PGtkWidget;
MainView: PGtkWidget;
i: Integer;
begin
if (AControl=nil) then ;
// currently there are no controls, that need after events.
Result:=true;
Result := True;
// gtk2 column resizing ... issue #21354
if (Event <> nil) and not (csDesigning in AControl.ComponentState) and
(AControl is TWinControl) and
(TWinControl(AControl).FCompStyle = csListView) and
(TListView(AControl).ViewStyle = vsReport) and
(TListView(AControl).ShowColumnHeaders) then
begin
ShiftState := GTKEventStateToShiftState(Event^.State);
if ssLeft in ShiftState then
begin
Widget := PGtkWidget(TWinControl(AControl).Handle);
if GTK_IS_SCROLLED_WINDOW(Widget) then
begin
MainView := gtk_bin_get_child(PGtkBin(Widget));
if GTK_IS_TREE_VIEW(MainView) then
begin
// here we are
if gtk_tree_view_get_bin_window(PGtkTreeView(MainView)) <> Event^.window then
Result := False;
end;
end;
end;
end;
end;
procedure GTKGetDevicePointer(win: PGdkWindow; dev: PGdkDevice;
@ -1359,7 +1390,7 @@ begin
begin
DesignOnlySignal := GetDesignOnlySignalFlag(Widget, dstMouseMotion);
if DesignOnlySignal then exit;
if not ControlGetsMouseMoveBefore(TControl(Data)) then exit;
if not ControlGetsMouseMoveBefore(TControl(Data), True, Event) then exit;
end else
begin
// stop the signal, so that the widget does not auto react
@ -1410,7 +1441,7 @@ begin
UpdateMouseCaptureControl;
if (csDesigning in TComponent(Data).ComponentState) then exit;
if ControlGetsMouseMoveBefore(TControl(Data)) then exit;
if ControlGetsMouseMoveBefore(TControl(Data), True, Event) then exit;
DeliverMouseMoveMessage(Widget,Event, TWinControl(Data));
end;

3
lcl/interfaces/gtk2/gtk2extrah.inc
View File

@ -237,6 +237,9 @@ function gtk_icon_view_get_cursor(icon_view: PGtkIconView; var path: PGtkTreePat
procedure gtk_icon_view_set_cursor(icon_view: PGtkIconView; path: PGtkTreePath; cell: PGtkCellRenderer; start_editing: gboolean); cdecl; external gtklib;
function gtk_tree_view_get_visible_range(tree_view: PGtkTreeView; out start_path, endpath: PGtkTreePath): gboolean; cdecl; external gtklib;
function gtk_icon_view_get_visible_range(tree_view: PGtkTreeView; out start_path, endpath: PGtkTreePath): gboolean; cdecl; external gtklib;
procedure gtk_tree_view_column_queue_resize(tree_column: PGtkTreeViewColumn); cdecl; external gtklib;
{$endif}
{$ifdef GTK_2_10}
function gdk_screen_is_composited(screen: PGdkScreen): gboolean; cdecl; external gdklib;

2
lcl/interfaces/gtk2/gtk2proc.pp
View File

@ -140,7 +140,7 @@ function gtkresizeCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
function gtkMonthChanged(Widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
procedure DeliverMouseMoveMessage(Widget:PGTKWidget; Event: PGDKEventMotion;
AWinControl: TWinControl);
function ControlGetsMouseMoveBefore(AControl: TControl): boolean;
function gtkMotionNotify(Widget:PGTKWidget; Event: PGDKEventMotion;
Data: gPointer): GBoolean; cdecl;
function GTKMotionNotifyAfter(widget:PGTKWidget; event: PGDKEventMotion;