Форум: "KOL";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Вниз
Не могу создать картинку с текстом.. Наверное я туплю.. Найти похожие ветки
← →
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 вся ветка
Форум: "KOL";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.029 c
