Форум: "KOL";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
ВнизПомогите нарисовать картинку на битмапе :) Найти похожие ветки
← →
BaDeVlad © (2003-12-22 14:22) [0]Делаю так:
procedure TForm1.Button1Click(Sender: PObj);
var bmp: PBitMap;
begin
bmp:= NewDIBBitmap(10,10,pf1bit);
bmp.Canvas.Font.Color:= clRed;
bmp.Canvas.Font.FontName:= "Arial";
bmp.Canvas.Font.FontHeight:= -13;
bmp.Canvas.Brush.BrushStyle:= bsSolid;
bmp.Canvas.Brush.Color:= clWhite;
bmp.Height:= bmp.Canvas.TextHeight(EditBox1.Text);
bmp.Width:= bmp.Canvas.TextWidth(EditBox1.Text);
bmp.Canvas.FillRect(bmp.BoundsRect);
bmp.Canvas.TextOut(1, 1, EditBox1.Text);
bmp.Draw(GetDC(Form.Handle), 100, 100);
bmp.Free;
end;
Ну, а после щелчка на кнопке получаю черный квадратик 10х10 на розовом фоне. Тоже симпатично, но не совсем то что нужно. Есть ли надежда?
← →
Gandalf © (2003-12-22 15:18) [1]А 1bit спациально поставил? У меня этот код работает как надо. KOLnMCK1.87(8), Delphi 5-7, WinXP SP1 Rus.
← →
BaDeVlad © (2003-12-22 17:49) [2]Спасибо, обновил версию KOL - все заработало!
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c