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

Вниз

Не могу создать картинку с текстом.. Наверное я туплю..   Найти похожие ветки 

← →
savva ©   (2003-09-03 11:17) [0]

Задача: создать BMP файл с одной строкой текста. Я сделал так. НО: создается файл по ширине и высоте какой надо, но абсолютно пустой..
Что я не так делаю? HELP:))
procedure TForm1.Button3Click(Sender: PObj);
var
 bmp: PBitmap;
 txt : string;
begin
 bmp:=NewDIBBitmap(1,1,pf8bit);
 bmp.BkColor:=clWhite;
 bmp.Canvas.Font.FontWidth:=16;
 bmp.Canvas.Font.FontPitch := fpVariable;

 txt:=Просто текст";

 bmp.Width:=bmp.canvas.TextWidth(txt);
 bmp.Height:=bmp.canvas.TextHeight(txt);
 bmp.Canvas.Brush.Color:=clWhite;
 bmp.Canvas.Brush.BrushStyle:=bsSolid;
 bmp.Canvas.FillRect(bmp.BoundsRect);
 bmp.Canvas.Font.Color:=clBlack;
 bmp.Canvas.Pen.Color:=clBlack;
 bmp.Canvas.TextOut(1,1,txt);
 bmp.SaveToFile("test.bmp");
 bmp.Free;
end;


---

← →
Кладов   (2003-09-03 16:45) [1]

Просто обновите до 1.84

---

← →
savva ©   (2003-09-03 16:54) [2]

помогло:))
спасибо:)

---

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

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

Наверх

Память: 0.47 MB
Время: 0.053 c