provalio sam
ovo je bila kljuchna linija:
Code:
acanvas.Brush.Style:=bsClear;
evo gotovog koda, a imate i projekat APLODOVAN :)
x i y offset su koordinate za pozicioniranje teksta u odnosu na gornju i levu ivicu porozora, a sFont je property kojim podesavate izgled fonta u titlebar-u
Code:
procedure TForm1.FormPaint(Sender: TObject);
var acanvas: TCanvas;
aDC: HDC;
x_offset,y_offset:integer;
sFont:TFont;
begin
sFont:=TFont.Create;
//podesavanja
x_offset:=30;
y_offset:=5;
sFont.Style:=[fsBold];
sFont.Size:=10;
////ne dirati ispod
acanvas := TCanvas.Create;
aDC := GetDC(0);
acanvas.Handle := aDC;
acanvas.Brush.Style:=bsClear;
acanvas.Font:=sFont;
acanvas.textout(form1.left+x_offset,form1.top+y_offset,form1.caption);
end;
napokon mozemo i caption da menjamo u runtime-u :)
edit: samo ne znam da li na kraju koda treba staviti
sFont.Free; ili
sFont.Destroy;
radi sa obe instrukcije, a radi i bez njih (samo koliko ce raditi? :P)
ja stavljam free, ako vas bash zanima
Laravel Srbija.
[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]