unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
BGRAVirtualScreen, BGRAGraphicControl,
BGRABITMAP, BGRABITMAPTYPES,
EasyLazFreeType, LazFreeTypeFontCollection,
BGRAFreeType
, BCTypes;
type
{ TForm1 }
TForm1 = class(TForm)
BGRAGraphicControl1: TBGRAGraphicControl;
BGRAVirtualScreen1: TBGRAVirtualScreen;
BGRAVirtualScreen2: TBGRAVirtualScreen;
procedure BGRAGraphicControl1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
procedure BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
procedure BGRAVirtualScreen2Redraw(Sender: TObject; Bitmap: TBGRABitmap);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
VAR
FONTFAMILYNAME : STRING ;
MYFONT : TFREETYPEFONT ;
procedure TForm1.FormCreate(Sender: TObject);
begin
FONTFAMILYNAME := FontCollection.AddFile('Arial.ttf').Family.FamilyName;
MYFONT := TFreeTypeFont.Create;
MYFONT.NAME := FontFamilyName;
end;
procedure TForm1.BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
VAR
RENDERER: TBGRAFreeTypeFontRenderer;
begin
RENDERER:=TBGRAFreeTypeFontRenderer.Create;
BITMAP.FILL(CLBLACK);
BITMAP.FONTRENDERER:=RENDERER;
BITMAP.FONTNAME := fontfamilyname;
bitmap.FontHeight:=10;
BITMAP.TEXTOUT(1,1,'Connected',CLRED);
end;
procedure TForm1.BGRAVirtualScreen2Redraw(Sender: TObject; Bitmap: TBGRABitmap);
VAR
RENDERER: TBGRAFreeTypeFontRenderer;
begin
RENDERER:=TBGRAFreeTypeFontRenderer.Create;
BITMAP.FILL(CLBLACK);
BITMAP.FONTRENDERER:=RENDERER;
BITMAP.FONTNAME := fontfamilyname;
bitmap.FontHeight:=10;
BITMAP.TEXTOUT(1,1,'Connected',CLRED);
END;
procedure TForm1.BGRAGraphicControl1Redraw(Sender: TObject; Bitmap: TBGRABitmap
);
VAR
RENDERER: TBGRAFreeTypeFontRenderer;
begin
RENDERER:=TBGRAFreeTypeFontRenderer.Create;
BITMAP.FILL(CLBLACK);
BITMAP.FONTRENDERER:=RENDERER;
BITMAP.FONTNAME := fontfamilyname;
bitmap.FontHeight:=10;
BITMAP.TEXTOUT(1,1,'Connected',CLRED);
END;
end.