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

richmemo: gtk2 modify selection change. updated getRangeStyle to fail, if textStart is out of text

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3800 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-28 04:49:27 +00:00
parent 1b7d496a56
commit 179c8192f6
1 changed files with 56 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,7 +29,7 @@ uses
// RTL/FCL // RTL/FCL
Types, Classes, SysUtils, Types, Classes, SysUtils,
// LCL // LCL
LCLType, Controls, Graphics, LazUTF8, LCLType, Controls, Graphics, LazUTF8, StdCtrls,
// Gtk2 widget // Gtk2 widget
Gtk2Def, Gtk2Def,
GTK2WinApiWindow, Gtk2Globals, Gtk2Proc, InterfaceBase, GTK2WinApiWindow, Gtk2Globals, Gtk2Proc, InterfaceBase,
@ -74,6 +74,8 @@ type
const FileNameUTF8: string; const FileNameUTF8: string;
const AImgSize: TSize const AImgSize: TSize
): Boolean; ): Boolean;
class procedure SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer); override;
class procedure SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
end; end;
implementation implementation
@ -252,8 +254,12 @@ begin
Result:=false; Result:=false;
Exit; Exit;
end; end;
gtk_text_buffer_get_iter_at_offset (b, @istart, TextStart+1); gtk_text_buffer_get_iter_at_offset (b, @istart, TextStart+1);
if gtk_text_iter_get_offset(@istart)<>TextStart+1 then begin
Result:=false; // TextStart is beyoned the end of text
Exit;
end;
gtk_text_iter_backward_to_tag_toggle(@istart, nil); gtk_text_iter_backward_to_tag_toggle(@istart, nil);
RangeStart:=gtk_text_iter_get_offset(@istart); RangeStart:=gtk_text_iter_get_offset(@istart);
@ -591,6 +597,54 @@ begin
writeln(err^.message); writeln(err^.message);
end; end;
class procedure TGtk2WSCustomRichMemo.SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer);
var
TextMark: PGtkTextMark;
CursorIter: TGtkTextIter;
w : PGtkWidget;
b : PGtkTextBuffer;
begin
GetWidgetBuffer(ACustomEdit, w, b);
if not Assigned(b) then Exit;
if NewStart = -1 then
begin
// always scroll so the cursor is visible
TextMark := gtk_text_buffer_get_insert(b);
gtk_text_buffer_get_iter_at_mark(b, @CursorIter, TextMark);
end
else begin
// SelStart was used and we should move to that location
gtk_text_buffer_get_iter_at_offset(b, @CursorIter, NewStart);
gtk_text_buffer_place_cursor(b, @CursorIter); // needed to move the cursor
TextMark := gtk_text_buffer_get_insert(b);
end;
gtk_text_view_scroll_to_mark(PGtkTextView(w), TextMark, 0, True, 0, 1);
end;
class procedure TGtk2WSCustomRichMemo.SetSelLength(
const ACustomEdit: TCustomEdit; NewLength: integer);
var
TextMark: PGtkTextMark;
StartIter,
EndIter: TGtkTextIter;
Offset: Integer;
w : PGtkWidget;
b : PGtkTextBuffer;
begin
GetWidgetBuffer(ACustomEdit, w, b);
if not Assigned(b) then Exit;
TextMark := gtk_text_buffer_get_insert(b);
gtk_text_buffer_get_iter_at_mark(b, @StartIter, TextMark);
Offset := gtk_text_iter_get_offset(@StartIter);
gtk_text_buffer_get_iter_at_offset(b, @EndIter, Offset+NewLength);
gtk_text_buffer_select_range(b, @StartIter, @EndIter);
end;
class function TGtk2WSCustomRichMemo.GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer; var Params: TIntFontParams): Boolean; class function TGtk2WSCustomRichMemo.GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer; var Params: TIntFontParams): Boolean;
var var