| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите нарисовать картинку на битмапе :) [Delphi, Windows]

BaDeVlad ©   (2003-12-22 14:22:00) 

Делаю так:

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 на розовом фоне. Тоже симпатично, но не совсем то что нужно. Есть ли надежда?

---

BaDeVlad   (2003-12-22 17:49:00) [1]

Спасибо, обновил версию KOL - все заработало!

---

Gandalf   (2003-12-22 15:18:00) [2]

А 1bit спациально поставил? У меня этот код работает как надо. KOLnMCK1.87(8), Delphi 5-7, WinXP SP1 Rus.

---

Наверх