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

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

Меню и картинки [D7, Win2k, WinXP]

James007 ©   (2004-12-08 01:11:00) 

У меня вопрос: как можно в главном меню в подменю вставить картинку (например размером 100х100), типа preview-шки???
Заранее благодарен!

---

GuAV   (2004-12-08 14:28:00) [1]

Form.OnCreate назначен ?
BMP файл существует ?
FBmp - поле формы или глобальная переменная ?

---

James007   (2004-12-08 14:18:00) [2]

Не работает выдает ошибку "Access violation at adress 0041CD96"

---

James007   (2004-12-08 14:16:00) [3]

Не работает выдает ошибку "Access violation at adress 0041CD96"

---

GuAV   (2004-12-08 13:14:00) [4]

mniPreview - элемент меню с назначеными обработчикаи OnDrawItem и OnMeasureItem, MainMenu.OvnerDraw = True.

procedure TForm1.mniPreviewMeasureItem(Sender: TObject; ACanvas: TCanvas;
 var Width, Height: Integer);
begin
 Width := 100;
 Height := 100;
end;

procedure TForm1.mniPreviewDrawItem(Sender: TObject; ACanvas: TCanvas;
 ARect: TRect; Selected: Boolean);
begin
 ACanvas.CopyRect(ARect, FBmp.Canvas, FBmp.Canvas.ClipRect);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FBmp := TBitmap.Create;
 FBmp.LoadFromFile('D:\DOC\PROG\CLOUDS.BMP');
end;


---

James007   (2004-12-08 09:24:00) [5]

Картинка находится в определенном файле например photo.jpg (или photo.bmp)
А можно небольшой пример.
Заранее благодарен.

---

GuAV   (2004-12-08 01:15:00) [6]

TMenu.OwnerDraw
TMenuItem.OnDrawItem
TMenuItem.OnMeasureItem

---

Наверх