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

qt: cleanup

Browse Source 
git-svn-id: trunk@17598 -
This commit is contained in:
paul 2008-11-26 07:48:17 +00:00
parent 17982b9c1a
commit 434df3cf0d
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -532,8 +532,6 @@ begin
end;
procedure TQtListStrings.Exchange(AIndex1, AIndex2: Integer);
var
i: Integer;
begin
inherited Exchange(AIndex1, AIndex2);
FOwner.exchangeItems(AIndex1, AIndex2);

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

@ -1038,11 +1038,11 @@ type
FMenuItem: TMenuItem;
protected
function CreateWidget(const APrams: TCreateParams): QWidgetH; override;
procedure InitializeWidget; override;
procedure DoPopupClose;
public
constructor Create(const AMenuItem: TMenuItem); overload;
destructor Destroy; override;
procedure InitializeWidget; override;
public
procedure AttachEvents; override;
procedure DetachEvents; override;