Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.031 c
9-1092763734
Drow
2004-08-17 21:28
2004.12.26
Полноэкранный режим


1-1102867259
Elc_
2004-12-12 19:00
2004.12.26
Dll MDIForm


14-1102560770
Vasis
2004-12-09 05:52
2004.12.26
Распознавание


14-1102360367
Alex_Petr
2004-12-06 22:12
2004.12.26
Кто-нибудь сталкивался с фирмой: "Elessta" ?


1-1103043162
denis24
2004-12-14 19:52
2004.12.26
form.oncreate