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

Qt: TQtWSCustomEdit: implemented getCaretPos() & setCaretPos()

Browse Source 
git-svn-id: trunk@27226 -
This commit is contained in:
zeljko 2010-08-28 19:09:15 +00:00
parent ad720b3f1f
commit 549e73a73f
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt/qtwsstdctrls.pp
View File

@ -141,7 +141,9 @@ type
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetAlignment(const ACustomEdit: TCustomEdit; const AAlignment: TAlignment); override;
class function GetCaretPos(const ACustomEdit: TCustomEdit): TPoint; override;
class function GetCanUndo(const ACustomEdit: TCustomEdit): Boolean; override;
class procedure SetCaretPos(const ACustomEdit: TCustomEdit; const NewPos: TPoint); override;
class procedure SetEchoMode(const ACustomEdit: TCustomEdit; NewMode: TEchoMode); override;
class procedure SetMaxLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
class procedure SetReadOnly(const ACustomEdit: TCustomEdit; NewReadOnly: boolean); override;
@ -766,6 +768,15 @@ begin
TQtLineEdit(ACustomEdit.Handle).setAlignment(AlignmentMap[AAlignment]);
end;
class function TQtWSCustomEdit.GetCaretPos(const ACustomEdit: TCustomEdit
): TPoint;
begin
Result := Point(0,0);
if not WSCheckHandleAllocated(ACustomEdit, 'GetCaretPos') then
Exit;
Result.X := TQtLineEdit(ACustomEdit.Handle).getCursorPosition;
end;
class function TQtWSCustomEdit.GetCanUndo(const ACustomEdit: TCustomEdit): Boolean;
var
Widget: TQtWidget;
@ -779,6 +790,14 @@ begin
Result := QtEdit.isUndoAvailable;
end;
class procedure TQtWSCustomEdit.SetCaretPos(const ACustomEdit: TCustomEdit;
const NewPos: TPoint);
begin
if not WSCheckHandleAllocated(ACustomEdit, 'SetCaretPos') then
Exit;
TQtLineEdit(ACustomEdit.Handle).setCursorPosition(NewPos.X);
end;
{------------------------------------------------------------------------------
Method: TQtWSCustomEdit.SetEchoMode
Params: None