Текущий архив: 2005.06.06;
Скачать: CL | DM;

Вниз

вставка теста в графику(image)   Найти похожие ветки 

← →
Rustam   (2005-02-19 11:16) [0]

как можно преобразовать текст в картинку, те вставить его в image?
пример: нужно в image в 2 колонки вывести небольшой закрашенный прямоугольник и подпись его цвета.

---

← →
Kind ©   (2005-02-19 13:18) [1]

На сколько я понял вопрос:

procedure TForm1.Button1Click(Sender: TObject);
var
 Image: TImage;
begin
Image := TImage.Create(Self);
Image.Left := 10;
Image.Top := 10;
Image.Width := 100;
Image.Height := 50;
Image.Canvas.Brush.Color := clRed;
Image.Canvas.Rectangle(0,0,50,50);
Image.Canvas.TextOut(5,10,"RED");
Image.Canvas.Brush.Color := clGreen;
Image.Canvas.Rectangle(50,0,100,50);
Image.Canvas.TextOut(55,10,"GREEN");
Canvas.Draw(10,10,Image.Picture.Bitmap);
Image.Free;
end;


---

← →
Rustam   (2005-02-19 15:48) [2]

2 Kind ©
то что надо!
спасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2005.06.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.051 c