Błagam niech mi ktoś pomoże zmodyfikować ten algorytm justowania tekstu do lewego i prawego marginesu na canvasie
function Justify(DC:HDC;text:string;AreaWidth:integer):string;
var
Canvas : TCanvas;
i,j : integer;
Len : integer;
SpaceLen : integer;
tmp : string;
begin
Canvas:=TCanvas.Create;
Canvas.Handle:=DC;
Len:=Canvas.TextWidth(text);
SpaceLen:=Canvas.TextWidth(#32);
i:=1;
while (Len<AreaWidth) do begin
while(i<Length(text)) do begin
if text[i]=#32 then begin
for j:=i+1 to Length(text) do
if text[j]=#32 then inc(i) else break;
tmp:='';
for j:=1 to i do tmp:=tmp+text[j];
tmp:=tmp+#32;
for j:=i+1 to length(text) do tmp:=tmp+text[j];
text:=tmp;
i:=i+2;
Len:=Len+SpaceLen;
end else
inc(i);
end;
i:=1;
end;
Result:=text;
end;