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

LCL: clean up

Browse Source 
git-svn-id: trunk@28553 -
This commit is contained in:
mattias 2010-11-29 09:14:55 +00:00
parent 799a9ade18
commit 52060dfa52
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/qt/qtprivate.pp
View File

@ -156,7 +156,6 @@ procedure TQtMemoStrings.ExternalUpdate(var AStr: WideString;
var var
W: WideString; W: WideString;
TextEdit: TQtTextEdit; TextEdit: TQtTextEdit;
B: Boolean;
begin begin
if not FOwner.HandleAllocated then if not FOwner.HandleAllocated then
exit; exit;

1
lcl/interfaces/qt/qtwidgets.pas
View File

@ -11699,7 +11699,6 @@ end;
procedure TQtCustomControl.ViewPortEventFilter(event: QEventH; retval: PBoolean); cdecl; procedure TQtCustomControl.ViewPortEventFilter(event: QEventH; retval: PBoolean); cdecl;
var var
MouseEventTyp: Boolean; MouseEventTyp: Boolean;
AForm: TCustomForm;
begin begin
{$ifdef VerboseViewPortEventFilter} {$ifdef VerboseViewPortEventFilter}
WriteLn('ViewPortEventFilter ',QEvent_type(Event)); WriteLn('ViewPortEventFilter ',QEvent_type(Event));