paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 18:29:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

workaround for inherited bug in fpc 1.9

Browse Source 
git-svn-id: trunk@4928 -
This commit is contained in:
mattias 2003-12-21 15:36:47 +00:00
parent 29c86ddf9a
commit 86308bf245
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/treeview.inc
View File

@ -4891,7 +4891,7 @@ begin
writeln('TCustomTreeView.WMLButtonDown A ',Name,':',ClassName,' ');
{$ENDIF}
Exclude(FStates,tvsDragged);
inherited;
inherited WMLButtonDown(AMessage);
{$IFDEF VerboseDrag}
writeln('TCustomTreeView.WMLButtonDown END ',Name,':',ClassName,' ');
{$ENDIF}

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

@ -1341,7 +1341,7 @@ begin
ShiftState := GTKEventState2ShiftState(Event^.State);
MappedXY:=TranslateGdkPointToClientArea(Event^.Window,EventXY,
PGtkWidget(AWinControl.Handle));
//writeln('BBB1 MouseDown ',AWinControl.Name,':',AWinControl.ClassName,' Mapped=',MappedXY.X,',',MappedXY.Y,' Event=',EventXY.X,',',EventXY.Y);
//writeln('DeliverMouseDownMessage ',AWinControl.Name,':',AWinControl.ClassName,' Mapped=',MappedXY.X,',',MappedXY.Y,' Event=',EventXY.X,',',EventXY.Y);
if event^.Button in [4,5] then begin
// this is a mouse wheel event
@ -3192,6 +3192,9 @@ end;
{ =============================================================================
$Log$
Revision 1.208 2003/12/21 15:36:47 mattias
workaround for inherited bug in fpc 1.9
Revision 1.207 2003/12/21 13:58:06 mattias
renamed DirectoryExists to DirPathExists to reduce ambigiousity