paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 20:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: TQtTextEdit: implemented internal getCursorPosition() & setCursorPosition()

Browse Source 
git-svn-id: trunk@27227 -
This commit is contained in:
zeljko 2010-08-29 06:46:21 +00:00
parent 549e73a73f
commit 896b2f89a0
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -686,6 +686,7 @@ type
procedure append(AStr: WideString);
function getAlignment: QtAlignment;
function getBlockCount: Integer;
function getCursorPosition: Integer;
function getMaxLength: Integer;
function getText: WideString; override;
function getTextStatic: Boolean; override;
@ -697,6 +698,7 @@ type
procedure removeLine(const AIndex: integer);
procedure setAlignment(const AAlignment: QtAlignment);
procedure setBorder(const ABorder: Boolean);
procedure setCursorPosition(const AValue: Integer);
procedure setDefaultColorRoles; override;
procedure setEchoMode(const AMode: QLineEditEchoMode);
procedure setLineWrapMode(const AMode: QTextEditLineWrapMode);
@ -6192,6 +6194,19 @@ begin
Result := QTextDocument_blockCount(QTextEdit_document(QTextEditH(Widget)));
end;
function TQtTextEdit.getCursorPosition: Integer;
var
TextCursor: QTextCursorH;
begin
TextCursor := QTextCursor_create();
QTextEdit_textCursor(QTextEditH(Widget), TextCursor);
if QTextCursor_isNull(TextCursor) then
Result := 0
else
Result := QTextCursor_position(TextCursor);
QTextCursor_destroy(TextCursor);
end;
function TQtTextEdit.getMaxLength: Integer;
begin
{$note implement TQtTextEdit.getMaxLength}
@ -6454,6 +6469,17 @@ begin
QFrame_setFrameShape(QFrameH(Widget), QFrameNoFrame);
end;
procedure TQtTextEdit.setCursorPosition(const AValue: Integer);
var
TextCursor: QTextCursorH;
begin
TextCursor := QTextCursor_create();
QTextEdit_textCursor(QTextEditH(Widget), TextCursor);
if not QTextCursor_isNull(TextCursor) then
QTextCursor_setPosition(TextCursor, AValue);
QTextCursor_destroy(TextCursor);
end;
procedure TQtTextEdit.setDefaultColorRoles;
begin
WidgetColorRole := QPaletteBase;