Thank's for your answer.
I download Asphyre package and set on my Delphi.
I write to formCreate:
Code:
procedure TMain.MainFormCreate(Sender: TObject);
begin
if (not aDvc.Initialize) then
begin
ShowMessage('Error initializing Asphyre!');
Main.Close;
end;
//...
end;
procedure TMain.aTmrTimer(Sender: Tobject);
begin
aDvc.Render(clWhite, True);
aDvc.Flip;
end;
//and drawing in procedure aDvc.Render
procedure TMain.aDvcRender(Sender: Tobject);
begin
aCanvas.Rectangle(0, 0, aDvc.Width, aDvc.Height, clLime, clGreen, 1);
end;
how to use AsphyreFont from ASDB archives?
Bookmarks