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

← →
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

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

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