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

patch from zeljko, small TSpinEdit and TFloatSpinEdit fix on Qt

Browse Source 
git-svn-id: trunk@11387 -
This commit is contained in:
sekelsenmat 2007-06-27 08:18:20 +00:00
parent b4f7d49315
commit d4564ed42a
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2947,6 +2947,7 @@ begin
{$endif}
Parent := TQtWidget(LCLObject.Parent.Handle).GetContainerWidget;
Str := UTF8Decode((LCLObject as TCustomEdit).Text);
if (Length(Str) = 0) then Str := #0;
Result := QLineEdit_create(@Str, Parent);
end;

13
lcl/interfaces/qt/qtwsspin.pp
View File

@ -52,6 +52,9 @@ type
class procedure DestroyHandle(const AWinControl: TWinControl); override;
class function GetValue(const ACustomFloatSpinEdit: TCustomFloatSpinEdit): single; override;
class procedure UpdateControl(const ACustomFloatSpinEdit: TCustomFloatSpinEdit); override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
class procedure SetText(const AWinControl: TWinControl; const AText: string); override;
(*
class function GetSelStart(const ACustomFloatSpinEdit: TCustomFloatSpinEdit): integer; virtual;
class function GetSelLength(const ACustomFloatSpinEdit: TCustomFloatSpinEdit): integer; virtual;
@ -185,6 +188,16 @@ begin
end;
end;
class function TQtWSCustomFloatSpinEdit.GetText(const AWinControl: TWinControl; var AText: String): Boolean;
begin
end;
class procedure TQtWSCustomFloatSpinEdit.SetText(const AWinControl: TWinControl; const AText: string);
begin
// perhaps QSpinBox_setSuffix() goes here one day (if we get LCL support)
end;
initialization
////////////////////////////////////////////////////