Discussion :

[Jayceblaster]

Bonjour...

Je suis dans un projet VCL et je souhaite rendre mon interface attrayante (enfin j'essaie ).
J'ai donc trois petites questions:

1- Peut-on definir la couleur de fond d'une form dégradé (du bleu foncé vers le bas et du bleu clair vers le haut de la form par exemple) --> autre qu'en passant par une image insérée ?

2- Lorsque un evenement (clic sur un bouton par exemple) provoque l'affichage d'une image, peut-on spécifique un type d'apparition de l'image (un peu comme ce que l'on peut faire avec des logiciels de présentation comme Powerpoint)?

3- Peut-on désiné des form géomémétrique en relief (par exemple triangle) que l'on peut positionné sur l'IHM pour décoration?

Merci d'avance

Ps: j'ai trouvé sur le net quelque site intéressant qui traite du design sur Delphi mais je suis preneur de tous liens sur le sujet

[sjrd]

Il n'existe rien de prévu dans la VCL, pour rien de ce que tu demandes. Soit tu trouves des composants qui le font (il existe le TJvGradient de la JVCL pour ta première question), soit tu codes tout à la main

[Sub0]

Salut!

J'avais fait une petite démo pour Noël où je dessinais une chute de neige sur un fond dégradé... Peut-être que ça pourra t'aider si tu décides de coder toi-même ton design, sait-on jamais :
http://sub0.developpez.com/delphi/noel2.zip

[Jayceblaster]

Merci Sub0 pour ton exemple...

Je le trouve tres intéressant surtout la parti dégradé de couleur (en plus c'est exactement le dégradé que je veux )
Alors comme le débutant que je suis, je me suis amusé à extraire la partie de code qui m'intéressait (oui le pere noel n'est plus d'actualité ni meme les flocons )
et voila donc le source (que tu reconnaitra certainement )

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
29
 
  procedure TForm7.FormCreate(Sender: TObject);
Var
  i, j: Integer;
  R, G, B: Byte;
 
begin
  { Dessin du dégradé de l'arrière-plan }
  B := $C4;
  G := $99;
  R := $02;
  j := -80;
  With Canvas Do
    Begin
      Brush.Color := clWhite;
      FillRect(ClipRect);
      For i := 5 To ClientHeight - 6 Do
        Begin
          Pen.Color := RGB(
            Max(Min(255, R + j), 0),
            Max(Min(255, G + j), 0),
            Max(Min(255, B + j), 0));
          MoveTo(5, i);
          LineTo(ClientWidth - 5, i);
          If (i Mod 2 = 0) Then j := j + 1;
        End;
 
  end;
end;

Mais quand j'exécute le programme ma form reste grise....
Qu'est ce que j'ai oublié??
Merci d'avance

[Jayceblaster]

Ah oui je viens de trouver il faut pas que je mette le code dans le formCreate mais dans le FormPaint
Bon maintenant que j'ai récupérer le code minumal pour faire mon dégrader, je vais essayer de le comprendre....

[Jayceblaster]

Encore une ptite question sur le theme du design comment puis je faire pour obtenir cette effet sous Delphi (projet VCL)--> voir pieces jointes

Merci

[Jayceblaster]

Personne peut m'aider?

[Sub0]

Quel effet ? Une barre de Menu ?
As-tu au moins regardé si les compos fournis avec Delphi suffisaient ?
TToolbar, TCoolbar, ou TControlBar...

http://www.developpez.net/forums/arc...p/t-97884.html