Форум: "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.45 MB
Время: 0.052 c