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

Qt: cleanup

Browse Source 
git-svn-id: trunk@12046 -
This commit is contained in:
paul 2007-09-16 15:39:51 +00:00
parent d712502a4c
commit 6eb5685e9e
1 changed files with 2 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2818,16 +2818,8 @@ end;
{ TQtPushButton }
function TQtPushButton.CreateWidget(const AParams: TCreateParams): QWidgetH;
var
Str: WideString;
begin
// Creates the widget
{$ifdef VerboseQt}
WriteLn('TQtPushButton.Create Left:', dbgs(LCLObject.Left), ' Top:', dbgs(LCLObject.Top));
{$endif}
Str := UTF8Decode(LCLObject.Caption);
Result := QPushButton_create(@Str);
Result := QPushButton_create();
end;
{------------------------------------------------------------------------------
@ -3958,15 +3950,8 @@ end;
{ TQtLineEdit }
function TQtLineEdit.CreateWidget(const AParams: TCreateParams): QWidgetH;
var
Str: WideString;
begin
// Creates the widget
{$ifdef VerboseQt}
WriteLn('TQtLineEdit.Create');
{$endif}
Str := UTF8Decode((LCLObject as TCustomEdit).Text);
Result := QLineEdit_create(@Str);
Result := QLineEdit_create();
end;
function TQtLineEdit.getMaxLength: Integer;
@ -5967,21 +5952,8 @@ end;
function TQtStatusBar.CreateWidget(const AParams: TCreateParams): QWidgetH;
begin
// Creates the widget
{$ifdef VerboseQt}
WriteLn('TQtStatusBar.Create');
{$endif}
SetLength(APanels, 0);
Result := QStatusBar_create();
{TODO: this should be made in initializeWND?
if (LCLObject as TStatusBar).SimplePanel then
begin;
Text := UTF8Decode((LCLObject as TStatusBar).SimpleText);
showMessage(@Text);
end;
}
end;
procedure TQtStatusBar.showMessage(text: PWideString; timeout: Integer);