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

richmemo: gtk2 inline objects initial support. The inline samples works, but leaves a lot of resource leaks

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3920 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-02-02 03:14:10 +00:00
parent 8916945ca1
commit 097469f097
1 changed files with 105 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,8 +31,8 @@ uses
// LCL
LCLType, Controls, Graphics, LazUTF8, StdCtrls, LCLProc,
// Gtk2 widget
Gtk2Def,
GTK2WinApiWindow, Gtk2Globals, Gtk2Proc, InterfaceBase,
Gtk2Int, Gtk2Def,
GTK2WinApiWindow, Gtk2Globals, Gtk2Proc,
gdk2pixbuf, Gtk2WSStdCtrls,
// RichMemo
RichMemo, WSRichMemo, RichMemoUtils;
@ -90,6 +90,25 @@ type
class procedure SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
class procedure SetZoomFactor(const AWinControl: TWinControl; AZoomFactor: Double); override;
// inline handler
class function InlineInsert(const AWinControl: TWinControl; ATextStart, ATextLength: Integer;
const ASize: TSize; AHandler: TRichMemoInline; var wsObj: TRichMemoInlineWSObject): Boolean; override;
class procedure InlineInvalidate(const AWinControl: TWinControl;
AHandler: TRichMemoInline; wsObj: TRichMemoInlineWSObject); override;
end;
{ TGtk2InlineObject }
TGtk2InlineObject = class(TRichMemoInlineWSObject)
public
anch : PGtkTextChildAnchor;
wgt : PGtkWidget;
il : TRichMemoInline;
size : TSize;
cnv : TCanvas;
constructor Create;
destructor Destroy; override;
end;
type
@ -331,6 +350,20 @@ begin
Result:=false;
end;
{ TGtk2InlineObject }
constructor TGtk2InlineObject.Create;
begin
inherited Create;
end;
destructor TGtk2InlineObject.Destroy;
begin
cnv.Free;
inherited Destroy;
end;
{ TGtk2RichMemoStrings }
function TGtk2RichMemoStrings.GetTextStr: string;
@ -1178,6 +1211,76 @@ begin
//todo: set default font with scale
end;
function GtkDrawableDraw(widget: PGtkWidget;
event : PGdkEventExpose; gi: TGtk2InlineObject): gboolean; cdecl;
begin
if not Assigned(widget) then Exit;
if not gi.cnv.HandleAllocated then
gi.cnv.Handle:=GTK2WidgetSet.CreateDCForWidget(widget, event^.Window,false);
gi.il.Draw( gi.cnv, gi.Size);
Result:=gTRUE;
end;
class function TGtk2WSCustomRichMemo.InlineInsert(
const AWinControl: TWinControl; ATextStart, ATextLength: Integer;
const ASize: TSize; AHandler: TRichMemoInline;
var wsObj: TRichMemoInlineWSObject): Boolean;
var
w : PGtkWidget;
b : PGtkTextBuffer;
istart : TGtkTextIter;
iend : TGtkTextIter;
anch : PGtkTextChildAnchor;
gi : TGtk2InlineObject;
draw : PGtkWidget;
sz : TSize;
const
ScreenDPI = 96; // todo: might change, should be received dynamically
PageDPI = 72; // not expected to be changed
DPIFactor = ScreenDPI / PageDPI;
begin
Result:=false;
GetWidgetBuffer(AWinControl, w, b);
if not Assigned(b) then Exit;
gi:=TGtk2InlineObject.Create;
gtk_text_buffer_get_iter_at_offset(b, @istart, ATextStart);
anch:=gtk_text_buffer_create_child_anchor(b, @istart);
draw:=gtk_drawing_area_new;
ConnectSignal( PGtkObject(draw), 'expose-event', @GtkDrawableDraw, gi);
sz.cx:=round(ASize.cx * DPIFactor);
sz.cy:=round(ASize.cy * DPIFactor);
gtk_widget_set_size_request(draw, sz.cx, sz.cy);
gtk_text_view_add_child_at_anchor(PGtkTextView(w), draw, anch);
gi.il:=AHandler;
gi.anch:=anch;
gi.wgt:=draw;
gi.size:=sz;
gi.cnv:=TCanvas.Create;
gtk_widget_show(draw);
gi.il.SetVisible(true);
wsObj:=gi;
Result:=true;
end;
class procedure TGtk2WSCustomRichMemo.InlineInvalidate(
const AWinControl: TWinControl; AHandler: TRichMemoInline;
wsObj: TRichMemoInlineWSObject);
var
gi : TGtk2InlineObject;
begin
if not Assigned(wsObj) or not (wsObj is TGtk2InlineObject) then Exit;
gi := TGtk2InlineObject(wsObj);
if Assigned(gi.wgt) then
gtk_widget_queue_draw(gi.wgt);
end;
class function TGtk2WSCustomRichMemo.GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer; var Params: TIntFontParams): Boolean;
var