Witam !
Napisałem sobie procedurę do obrotu tekstu o 90 stopni. Nie jest ona jednak zbyt szybka i w sumie wprowadza spore opóźnienie do części programu.
Jak mozna ja zmodyfikować ? Czy jest może jakis darmowy komponent (może z kodem )?
procedure TForm1.textout90(txt:string;x,y:integer;plotno:Timage;size:integer);
var
i,j:integer;
k,kk:integer;
poligon:TImage;
begin
poligon:=TImage.Create(Self);
poligon.Canvas.TextOut(1,1,txt);
for i:=1 to 50 do
for j:=1 to 50 do
begin
if plotno.canvas.pixels[x+i,y+j]=clwhite then
plotno.canvas.pixels[x+i,y+j]:=poligon.canvas.pixels[50-j,i];
end;
poligon.free;
end;
Pozdrawiam
Remek