Текущий архив: 2006.09.24;
Скачать: CL | DM;

Вниз

Нарисовать иконку на канве   Найти похожие ветки 

← →
Pety   (2005-11-25 19:21) [0]

Здравствуйте. Подскажите что я делаю не так

procedure TForm1.BitBtn14Click(Sender: PObj);
var  Icon: TIcon;
begin

  Icon.Create;
  Icon.LoadFromFile("d:\oo\150.ico");
  DrawIcon(Panel3.Canvas.Handle, 0, 0, Icon.Handle);

end;

Мне кажется что я как-то неправильно создаю Icon...

---

← →
fellix   (2005-11-26 21:20) [1]

Например, так:

var  Icon: PIcon;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
 Icon := NewIcon;
 Icon.LoadFromFile("zzz.ico");
 Icon.Add2AutoFree(Form);
end;

procedure TForm1.KOLForm1Paint(Sender: PControl; DC: HDC);
begin
 Icon.Draw(DC, 0, 0);
end;


---

← →
igi   (2005-11-27 19:55) [2]

Спасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.24;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.049 c