Hyvää syntymäpäivää N3ss3s!
Happy birthday dude! :D
A small present from me for you. (SCAR muodossa :D).
Const
WhatsThisMutherfuckersName = {Umm.. Im}' N3ss3s';
var
frmDesign : TForm;
timer: TTimer;
procedure CopyToForm(Text: String; FontColor, BackroundColor: Integer);
var
TempBmp: Integer;
TempCanvas: TCanvas;
xx, yy: integer;
w,h: Integer;
begin
TempBmp := CreateBitMapMaskFromText(Text, UpChars);
GetBitmapSize(TempBmp, w, h);
for xx := 0 to w do
for yy := 0 to h do
begin
If(FastGetPixel(TempBmp, xx, yy) = 16777215) then
FastSetPixel(TempBmp, xx, yy, BackroundColor);
If(FastGetPixel(TempBmp, xx, yy) = 0) then
FastSetPixel(TempBmp, xx, yy, FontColor);
end;
TempCanvas := GetBitMapCanvas(TempBmp);
{
for xx := 0 to w*3 do
for yy := 0 to h*3 do
begin
TempCanvas.Pixels[xx, yy] := TempCanvas.Pixels[xx, yy]
TempCanvas.Pixels[xx + 1, yy + 1] := TempCanvas.Pixels[xx, yy]
TempCanvas.Pixels[xx + 1, yy + 1] := TempCanvas.Pixels[xx, yy]
end;
}
CopyCanvas(TempCanvas, frmDesign.Canvas, 0, 0, 800, 400, 0, 0, 800, 400);
end;
procedure Datime(Sender: TOBJect);
begin
CopyToForm('Happy brithday ' + WhatsThisMutherfuckersName + '!', random(50000), random(50000));
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 300;
frmDesign.Top := 100;
frmDesign.Width := 167;
frmDesign.Height := 50;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clblack;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 100;
timer := TTIMER.Create(FrmDesign);
timer.INTERVAL := 120;
timer.ONTIMER := @Datime;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
begin
SafeInitForm;
frmDesign.Show;
try
repeat
Sleep(0);
until(false)
except
terminatescript;
end;
end.
Hope it wont totally mess your computer. :DBtw… Since when has SRL forums been this slow?