Just found this room,:)
I have a small fpgui program like this
program TryAgg2dAttach;
uses classes,
fpg_gdi,
fpg_base,
fpg_main,
fpg_form,
fpg_widget,
Agg2D;
type
mwidget=class(tfpgwidget)
constructor create(acom:tcomponent);
procedure HandlePaint;override;
private
img:tfpgimage;
end;
TMainForm = class(TfpgForm)
mywidget:mwidget;
procedure AfterCreate; override;
end;
constructor mwidget.create(acom:tcomponent);
var ac:tagg2d;
begin
inherited create(acom);
img:=tfpgimage.Create;
ac:=tagg2d.Create(self);
if ac.Attach(img,true) then begin // <-------this always return false
ac.Curve(0,0,50,50,100,0,150,50);
end;
end;
procedure mwidget.HandlePaint;
begin
canvas.clear(clwhite);
canvas.DrawImage(0,0,img);
canvas.DrawArc(30,30,50,50,0,135);
end;
procedure tmainform.AfterCreate;
begin
width:=300;height:=100;
mywidget:=mwidget.create(self);
mywidget.SetPosition(0,0,300,100);
end;
procedure MainProc;
var
frm: TMainForm;
begin
fpgApplication.Initialize;
frm := TMainForm.Create(nil);
frm.Show;
fpgApplication.Run;
frm.Free;
end;
begin
MainProc;
end.
Notice the line I commented above , please explain me why it return false?