Pues algo se hablo sobre el tema pero ya hace mucho tiempo. Pero podeis probar con este código.
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
with form1.canvas do
begin
Brush.Color := clYellow;
Brush.Style := bsDiagCross;
Ellipse(0,0,210,350);
MoveTo(13,90);
Lineto(210,210);
MoveTo(6,120);
Lineto(206,240);
Brush.Color := clBlue;
Brush.Style := bsSolid;
FloodFill(14,94,ClBlack,fsBorder);
Brush.Style := bsClear;
Font.Size:=12;
TextOut(220,0,'HAPPY EASTER!!');
end;
end;
end.
Un Saludo.