DrawText(PaintBox1.canvas.Handle, PChar(Edit1.text), length(Edit1.Text), rect(10,10, 100, 100), DT_CENTER);
var rect: TRect; begin DrawText(PaintBox1.canvas.Handle, PChar(Edit1.text), length(Edit1.Text), rect(10,10, 100, 100), DT_CENTER); end;
Posted via ActualForum NNTP Server 1.5
var aRect: TRect; begin aRect := rect(10,10, 100, 100); // Результат rect в переменную DrawText(PaintBox1.canvas.Handle, PChar(Edit1.text), length(Edit1.Text), aRect, DT_CENTER); end;