Discussion :

[yannba]

Bonjour,

Je recherche une aide sur Frame3D, impossible à trouver sur le net.

Si j'ai bien compris sur les sites anglais, ca donne un effet "enfoncé".

Donc j'essaie de l'appliquer sur une cellule de mon stringgrid.

Code :

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

Frame3D(Canvas,Rect,clGray,clWhite,2);

ou

Code :

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

StringGrid1.Canvas.Frame3D(Canvas,Rect,clGray,clWhite,2);

ou

Code :

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

StringGrid1.Canvas.Frame3D(StringGrid1.Canvas,Rect,clGray,clWhite,2);

Evidemment, ce n'est pas ca. Merci de votre aide.

PS : à quoi correspond 2 ?

[Pedro]

Salut

Evidemment, ce n'est pas ca. Merci de votre aide.

C'est à dire? Ca ne marche pas? Ca n'affiche pas les bonnes couleurs?

PS : à quoi correspond 2 ?

C'est l'épaisseur du trait de la Frame. Si tu veux faire un effet "à la Windows" l'épaisseur sera toujours égale à 1
Par exemple, pour afficher une Frame3D comme un TSpeedButton (bords fins):

Code :

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

1
2
3
 
aRect := Rect(aLeft, aTop, aLeft + aWidth, aTop + aHeight);
Frame3d(Canvas, aRect, clBtnHighlight, clBtnShadow, 1);

aRect étant de type TRect.
Si toutefois, tu veux faire un effet façon TButton (bords plus épais), il faut faire 2 Frame3D de couleur différente:

Code :

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

1
2
3
4
5
 
aRect := Rect(aLeft, aTop, aLeft + aWidth, aTop + aHeight);
Frame3D(Canvas, aRect, clBtnFace, cl3DDkShadow, 1);
InflateRect(aRect);
Frame3d(Canvas, aRect, clBtnHighlight, clBtnShadow, 1);

Evidemment, lorsque le bouton est cliqué, il faut tout inverser
Voila

[yannba]

Merci de ton aide, mais :

Code :

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

1
2
3
4
5
 
procedure TFrmMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
var aRect: Trect;
begin
     aRect := Rect(aLeft, aTop, aLeft + aWidth, aTop + aHeight);

[Erreur] Main.pas(80): E2066 Opérateur ou point-virgule manquant
[Erreur] Main.pas(80): E2003 Identificateur non déclaré : aWidth
[Erreur] Main.pas(80): E2003 Identificateur non déclaré : 'aHeight'

Code :

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

1
2
 
     Frame3d(Canvas, aRect, clBtnHighlight, clBtnShadow, 1);

[Erreur] Main.pas(81): E2003 Identificateur non déclaré : 'Frame3d'

end;

[Pedro]

Forcément faut adpater le code que je t'ai mis

Code :

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

1
2
3
4
5
 
procedure TFrmMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
  Frame3d(Canvas, Rect, clBtnHighlight, clBtnShadow, 1);
end;

[Erreur] Main.pas(81): E2003 Identificateur non déclaré : 'Frame3d'

Une simple recherche dans l'aide t'aurait permis d'ajouter l'unité ExtCtrls dans les uses...

[yannba]

Merci,

Mais pour l'aide, j'ai un souci, quand je fais F1, elle me met un message d'erreur "indisponible". J'ai regardé dans la FAQ, et je n'ai pas trouvé pourquoi ...

Mais sinon, ca marche merci !!!