pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: gtk2 removing timer dependent code for getting selection length

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3916 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-01-30 23:55:14 +00:00
parent 71c6eea0fa
commit 7d5620b2da
1 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/richmemo/gtk2/gtk2richmemo.pas
View File

@ -55,6 +55,7 @@ type
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override;
class function GetSelLength(const ACustomEdit: TCustomEdit): integer; override;
class function GetStrings(const ACustomMemo: TCustomMemo): TStrings; override;
class function GetStyleRange(const AWinControl: TWinControl; TextStart: Integer;
@ -621,6 +622,25 @@ begin
inherited DestroyHandle(AWinControl);
end;
class function TGtk2WSCustomRichMemo.GetSelLength(const ACustomEdit: TCustomEdit
): integer;
var
w : PGtkWidget;
b : PGtkTextBuffer;
istart : TGtkTextIter;
iend : TGtkTextIter;
begin
GetWidgetBuffer(ACustomEdit, w, b);
if not Assigned(b) then begin
Result:=-1;
Exit;
end;
Result := 0;
if not gtk_text_buffer_get_selection_bounds(b, @istart, @iend) then Exit;
Result := Abs(gtk_text_iter_get_offset(@iend) - gtk_text_iter_get_offset(@istart));
end;
class function TGtk2WSCustomRichMemo.GetStrings(const ACustomMemo: TCustomMemo
): TStrings;
var