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

Qt: small cleanup.

Browse Source 
git-svn-id: trunk@14030 -
This commit is contained in:
zeljko 2008-02-08 13:43:05 +00:00
parent 395b20981f
commit f644b9147c
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1189,8 +1189,6 @@ end;
constructor TQtWidget.CreateFrom(const AWinControl: TWinControl; constructor TQtWidget.CreateFrom(const AWinControl: TWinControl;
AWidget: QWidgetH); AWidget: QWidgetH);
var
AVariant: QVariantH;
begin begin
inherited Create; inherited Create;
@ -1225,8 +1223,6 @@ begin
end; end;
procedure TQtWidget.InitializeWidget; procedure TQtWidget.InitializeWidget;
var
AVariant: QVariantH;
begin begin
// Creates the widget // Creates the widget
Widget := CreateWidget(FParams); Widget := CreateWidget(FParams);
@ -5385,9 +5381,6 @@ function TQtComboBox.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cde
var var
ev: QEventH; ev: QEventH;
str: WideString; str: WideString;
DynPropName: QByteArrayH;
DynPropChars: PAnsiChar;
i: Integer;
begin begin
BeginEventProcessing; BeginEventProcessing;
if (FDropList <> nil) and (Sender = FDropList.Widget) then if (FDropList <> nil) and (Sender = FDropList.Widget) then