|
@@ -41,7 +41,7 @@ procedure TForm1.Button1Click(Sender: TObject);
|
|
var lazpaint: TLazPaintInstance;
|
|
var lazpaint: TLazPaintInstance;
|
|
begin
|
|
begin
|
|
lazpaint := TLazPaintInstance.Create;
|
|
lazpaint := TLazPaintInstance.Create;
|
|
- lazpaint.AboutText:= 'This is the normal application';
|
|
|
|
|
|
+ //lazpaint.AboutText:= 'This is the normal application';
|
|
lazpaint.Run;
|
|
lazpaint.Run;
|
|
lazpaint.Free;
|
|
lazpaint.Free;
|
|
end;
|
|
end;
|
|
@@ -51,7 +51,7 @@ var lazpaint: TLazPaintInstance;
|
|
bmp: TBitmap;
|
|
bmp: TBitmap;
|
|
begin
|
|
begin
|
|
lazpaint := TLazPaintInstance.Create(True);
|
|
lazpaint := TLazPaintInstance.Create(True);
|
|
- lazpaint.AboutText:= 'This is an embedded application';
|
|
|
|
|
|
+ //lazpaint.AboutText:= 'This is an embedded application';
|
|
lazpaint.Run;
|
|
lazpaint.Run;
|
|
if lazpaint.EmbeddedResult = mrOK then
|
|
if lazpaint.EmbeddedResult = mrOK then
|
|
begin
|
|
begin
|