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

gtk intf: fixed mouse events for TListBox

Browse Source 
git-svn-id: trunk@11084 -
This commit is contained in:
mattias 2007-05-05 16:05:37 +00:00
parent 45f07afcc1
commit 0d2a3b970c
3 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1631,7 +1631,6 @@ begin
// multiple incorrect mousemove messages
if TWinControl(Data).FCompStyle = csWinControl then Result := True;
{$ENDIF}
end;
{-------------------------------------------------------------------------------

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

@ -3721,6 +3721,11 @@ begin
gMouse:=gCore;
if gMouse=nil then
DebugLn(['TGtkWidgetSet.SetCallback WARNING: gMouseWidget=nil ',DbgSName(ALCLObject)]);
{$IFDEF GTK1}
if ALCLObject is TCustomListBox then
gMouse:=gMain;
{$ENDIF}
end;
//DebugLn(['TGtkWidgetSet.SetCallbackSmart MouseWidget=',GetWidgetDebugReport(PGtkWidget(gMouse))]);
@ -3938,7 +3943,7 @@ begin
begin
{$IFDEF GTK1}
if (ALCLObject is TCustomComboBox) then
Begin
begin
ConnectSenderSignal(PgtkObject(PgtkCombo(gObject)^.entry),
'button-release-event', @gtkMouseBtnRelease, GDK_BUTTON_RELEASE_MASK);
ConnectSenderSignalAfter(PgtkObject(PgtkCombo(gObject)^.entry),
@ -4120,10 +4125,10 @@ begin
if ALCLObject is TCustomListBox then begin
ConnectSenderSignalAfter(PgtkObject(gCore),
'selection_changed', @gtkListBoxSelectionChangedAfter);
end else if ALCLObject is TCustomCombobox then
end else if ALCLObject is TCustomCombobox then begin
ConnectSenderSignal (PGtkObject(PGtkCombo(gObject)^.list),
'unselect_child', @gtkListSelectChild)
else
'unselect_child', @gtkListSelectChild);
end;
end;
(*

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -8632,13 +8632,13 @@ end;
StaticXinerama also. MAC OSX is in this latter category, but it crashed the
X server when I tried it on a real two monitor display.
}
var
FirstScreenCalled: Boolean = False;
FirstScreenResult: Boolean = False;
{$IFDEF UseXinerama}
{$IFDEF StaticXinerama}
{$LINKLIB Xinerama}
{$ENDIF}
var
FirstScreenCalled: Boolean = False;
FirstScreenResult: Boolean = False;
{ Copy record definition from Xinerama unit.
Can't use the unit itself, as it forces the executable to
refer to the libraray }