Discussion :

[Sunchaser]

Bonsoir,
Une petite question qui devrait sembler toute bête...
J'ai 5 TMenuItems dans un TPopupMenu, avec la propriété OwnerDraw a true.
Donc dans l'évènement OnAdvancedDrawItem, j'appelle une fonction commune a tous les items :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
void __fastcall TfrmPrincipale::ComunMenuItemDraw(TObject *Sender, TCanvas *ACanvas, TRect &ARect, TOwnerDrawState State)
{
ACanvas->FillRect(ARect);
if (State.Contains(odSelected))
{
ACanvas->Font->Color = clRed;
ACanvas->Font->Style = TFontStyles()<< fsBold;
}
else
{
ACanvas->Font->Color = clNavy;
ACanvas->Font->Style = TFontStyles();
}
ACanvas->TextRect(ARect, 2, 2, ((TMenuItem *)Sender)->Caption );
}

avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ComunMenuItemDraw(Sender, ACanvas, ARect, State);

Problème : seul le premier élément est dessiné...
Ca doit être idiot mais, je n'arrive pas a voir ce que je ne fais pas pour que cela fonctionne en totalité...

Merci d'avance,

@+

[Sunchaser]

Bonjour,
J'ai modifié un peu le bout de code, et j'obtiens un 'truc' amusant...Cette fois ci, le 'Caption' des TMenuItems apparait bien sur le popup - je le vois en survolant la place supposée des éléments de menus - mais tous au même endroit ! ( )
Dois-je en déduire que le TCanvas (paramètre de la fonction OnAdvancedDrawItem) représente toute la surface du TPpopupMenu et non pas celle du TMenuItem en cours de dessin ?
Merci...
@ +

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
ACanvas->Brush->Color = clSilver;
ACanvas->FillRect(ARect);
if (State.Contains(odSelected))
{
ACanvas->Font->Color = clRed;
ACanvas->Font->Style = TFontStyles()<< fsBold;
ACanvas->Rectangle(ARect);
}
else
{
ACanvas->Font->Color = clNavy;
ACanvas->Font->Style = TFontStyles();
}
tagRECT* pRect = new tagRECT();
pRect->left = ACanvas->ClipRect.left;
pRect->right = ACanvas->ClipRect.right;
pRect->top = ACanvas->ClipRect.top;
pRect->bottom = ACanvas->ClipRect.bottom;
DrawText(ACanvas->Handle, ((TMenuItem*)Sender)->Caption.c_str(), ((TMenuItem*)Sender)->Caption.Length(), pRect, 2);

[bandit boy]

Salut Cantrelle,
Je ne sais pas si cela peut t'aider, mis j'ai trouvé ca dans l'aide de Builder:

Description

Write an OnAdvancedDrawItem event handler to render the image of a menu item in an owner-draw menu. The ACanvas parameter provides a drawing surface on which to draw the menu item. The ARect parameter indicates the boundaries (in pixels) of the menu item on that canvas. The State parameter is a set indicating various aspects of the menu items state such as whether it is selected, checked, grayed, and so on.

A priorie, le Canvas serait celui complet du menu item. Ca rejoint ton idée.

[Sunchaser]

Salut,
J'ai un peu bricolé, a default de trouver qqchose de très carré.
J'ai changé le prototype de la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
void __fastcall ComunMenuItemDraw(TObject *Sender, TCanvas *ACanvas, TRect &ARect, TOwnerDrawState State, int Index);

qui est appellée dans l'évènement OnAdvancedDrawItem ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ComunMenuItemDraw(Sender, ACanvas, ARect, State, ((TMenuItem*)Sender)->MenuIndex);

Ce qui donne, après qq tests :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
ACanvas->Brush->Color = clSilver;
ACanvas->FillRect(ARect);
if (State.Contains(odSelected))
{
ACanvas->Font->Color = clRed;
ACanvas->Font->Style = TFontStyles()<< fsBold;
ACanvas->Rectangle(ARect);
}
else
{
ACanvas->Font->Color = clNavy;
ACanvas->Font->Style = TFontStyles();
}
tagRECT* pRect = new tagRECT();
pRect->left = ACanvas->ClipRect.left;
pRect->right = ACanvas->ClipRect.right;
if (Index > 0)
{
        pRect->top = 20 * Index;
}
else
{
        pRect->top = ACanvas->ClipRect.top;
        pRect->bottom = ACanvas->ClipRect.bottom;
}
DrawText(ACanvas->Handle, ((TMenuItem*)Sender)->Caption.c_str(), ((TMenuItem*)Sender)->Caption.Length(), pRect, DT_CENTER);
//...

Voili...
@ +