paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:56:00 +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 if not WSCheckHandleAllocated(ACustomEdit, 'SetSelLength') then
Exit; Exit;
TextView := PGtkTextView(GetWidgetInfo(Pointer(ACustomEdit.Handle), False)^.CoreWidget); TextView := PGtkTextView(GetWidgetInfo(Pointer(ACustomEdit.Handle))^.CoreWidget);
TextBuffer := gtk_text_view_get_buffer(TextView); TextBuffer := gtk_text_view_get_buffer(TextView);
SelStart := GetSelStart(ACustomEdit); SelStart := GetSelStart(ACustomEdit);
@ -332,8 +332,7 @@ begin
Result := Min(StartPos, EndPos); Result := Min(StartPos, EndPos);
end; end;
class function TGtk2WSCustomMemo.GetSelLength(const ACustomEdit: TCustomEdit class function TGtk2WSCustomMemo.GetSelLength(const ACustomEdit: TCustomEdit): integer;
): integer;
var var
TextView: PGtkTextView; TextView: PGtkTextView;
TextBuffer: PGtkTextBuffer; TextBuffer: PGtkTextBuffer;
@ -350,8 +349,7 @@ begin
Result := Abs(gtk_text_iter_get_offset(@EndIter) - gtk_text_iter_get_offset(@StartIter)); Result := Abs(gtk_text_iter_get_offset(@EndIter) - gtk_text_iter_get_offset(@StartIter));
end; end;
class function TGtk2WSCustomMemo.GetCaretPos(const ACustomEdit: TCustomEdit class function TGtk2WSCustomMemo.GetCaretPos(const ACustomEdit: TCustomEdit): TPoint;
): TPoint;
var var
TextView: PGtkTextView; TextView: PGtkTextView;
TextBuffer: PGtkTextBuffer; TextBuffer: PGtkTextBuffer;