Главная страница
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.025 c
3-1101931556
DWW
2004-12-01 23:05
2004.12.26
Защита


1-1102946209
Илья
2004-12-13 16:56
2004.12.26
GetMem функция


3-1101460045
b@mboZe
2004-11-26 12:07
2004.12.26
Утечка памяти в TADODataset.


1-1102685710
mefisto
2004-12-10 16:35
2004.12.26
Как захватить текущий URL из окна Internet Explorer.


8-1096363662
BALU1111
2004-09-28 13:27
2004.12.26
Построение поверхностей второго порядка в трехмерном пространстве