|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Form Coulor ? [ Divers / Débutant(e) ] (MiniProgramer)
 Informations & options pour cette discussion
|
mardi 8 juillet 2008 à 10:40:43 |
Form Coulor ?
MiniProgramer
|
Hi est ce que c' est possible de faire une Form avec Bord (et avec coulor) ? 
|
|
|
|
mardi 8 juillet 2008 à 11:37:48 |
Re : Form Coulor ?
Nicolas___
|
Renseigne toi sur l'evenement onPaint d'une form ...
Sinon je te donnerai une solution si tu ne trouve vraiment pas ...
|
|
|
|
mardi 8 juillet 2008 à 12:30:28 |
Re : Form Coulor ?
|
|
mardi 8 juillet 2008 à 12:47:42 |
Re : Form Coulor ?
Nicolas___
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
const
LARGEUR = 15;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
var
x,y:integer;
begin
// couleur de bord
Canvas.Pen.Color := ClBlack;
// couleur interieure
Canvas.Brush.Color := ClRed;
// dessinne
// celui du dessus
Canvas.Rectangle(0,0,ClientWidth,LARGEUR);
// du dessous
Canvas.Rectangle(0,ClientHeight-LARGEUR,ClientWidth,ClientHeight);
// idem pour gauche et droite ... t'as plus qu'a chercher pour trouver :)
end;
procedure TForm1.FormResize(Sender: TObject);
begin
invalidate();
end;
end.
|
|
|
|
mardi 8 juillet 2008 à 13:20:17 |
Re : Form Coulor ?
MiniProgramer
|
Salut
c'est une bonne Idee ;)
Il ya un problem pour faire la ligne a droite !
procedure TForm1.FormPaint(Sender: TObject);
var
x,y:integer;
begin
// couleur de bord
//Canvas.Pen.Color := ClBlack;
// couleur interieure
Canvas.Brush.Color := ClRed;
// dessinne
// celui du dessus
Canvas.Rectangle(0,0,ClientWidth,LARGEUR);
// du dessous
Canvas.Rectangle(0,ClientHeight-LARGEUR,ClientWidth,ClientHeight);
// idem pour gauche ;)
Canvas.Rectangle(0,5,5,ClientHeight-5); // ok
// idem pour droite !
Canvas.Rectangle(0,0,0,0);
end;
merci
|
|
|
|
mardi 8 juillet 2008 à 14:37:46 |
Re : Form Coulor ?
Nicolas___
|
Réponse acceptée !
voila , c'etait pourtant pas tres compliqué ...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
const
LARGEUR = 15;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
var
x,y:integer;
begin
// couleur de bord
Canvas.Pen.Color := ClRed;
// couleur interieure
Canvas.Brush.Color := ClRed;
// dessinne
// celui du dessus
// form1.ClientHeight
// form1.ClientWidth
Canvas.Rectangle(0,0,ClientWidth,LARGEUR);
// du dessous
Canvas.Rectangle(0,ClientHeight-LARGEUR,ClientWidth,ClientHeight);
// gauche
Canvas.Rectangle(0,LARGEUR,LARGEUR,ClientHeight-LARGEUR);
// droite
Canvas.Rectangle(ClientWidth-LARGEUR,LARGEUR,ClientWidth,ClientHeight-LARGEUR);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
invalidate();
end;
end.
|
|
|
|
mardi 8 juillet 2008 à 14:40:58 |
Re : Form Coulor ?
Nicolas___
|
Réponse acceptée !
zut , les variables x,y n'ont pas de raisons d'être
Et la constant LARGUEUR sert justement a definir la Largueur de ta trace , il faut t'en servir ...
|
|
|
|
mardi 8 juillet 2008 à 14:53:38 |
Re : Form Coulor ?
|
|
mardi 8 juillet 2008 à 14:54:18 |
Re : Form Coulor ?
Nicolas___
|
Réponse acceptée !
bon ben je te met le lien vu que j'arrvie pas a afficher l'image
http://www.putfile.com/pic/8403415
|
|
|
|
mardi 8 juillet 2008 à 16:15:33 |
Re : Form Coulor ?
|
Cette discussion est classé dans : form, coulor
 Répondre à ce message
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|