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

minor formatting

Browse Source 
git-svn-id: trunk@19714 -
This commit is contained in:
paul 2009-04-30 16:46:10 +00:00
parent cc1aa6345c
commit f3bff5ed70
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2wscustommemo.inc
View File

@ -216,7 +216,7 @@ begin
if not WSCheckHandleAllocated(ACustomEdit, 'SetSelLength') then
Exit;
TextView := PGtkTextView(GetWidgetInfo(Pointer(ACustomEdit.Handle), False)^.CoreWidget);
TextView := PGtkTextView(GetWidgetInfo(Pointer(ACustomEdit.Handle))^.CoreWidget);
TextBuffer := gtk_text_view_get_buffer(TextView);
SelStart := GetSelStart(ACustomEdit);
@ -332,8 +332,7 @@ begin
Result := Min(StartPos, EndPos);
end;
class function TGtk2WSCustomMemo.GetSelLength(const ACustomEdit: TCustomEdit
): integer;
class function TGtk2WSCustomMemo.GetSelLength(const ACustomEdit: TCustomEdit): integer;
var
TextView: PGtkTextView;
TextBuffer: PGtkTextBuffer;
@ -350,8 +349,7 @@ begin
Result := Abs(gtk_text_iter_get_offset(@EndIter) - gtk_text_iter_get_offset(@StartIter));
end;
class function TGtk2WSCustomMemo.GetCaretPos(const ACustomEdit: TCustomEdit
): TPoint;
class function TGtk2WSCustomMemo.GetCaretPos(const ACustomEdit: TCustomEdit): TPoint;
var
TextView: PGtkTextView;
TextBuffer: PGtkTextBuffer;