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

Вниз

Меню и картинки   Найти похожие ветки 

← →
James007   (2004-12-08 01:11) [0]

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

---

← →
GuAV ©   (2004-12-08 01:15) [1]

TMenu.OwnerDraw
TMenuItem.OnDrawItem
TMenuItem.OnMeasureItem

---

← →
James007   (2004-12-08 09:24) [2]

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

---

← →
GuAV ©   (2004-12-08 13:14) [3]

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 14:16) [4]

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

---

← →
James007   (2004-12-08 14:18) [5]

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

---

← →
GuAV ©   (2004-12-08 14:28) [6]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.028 c