Discussion :

[ero-sennin]

Bonsoir,

J'ai un problème ou plutôt une question, concernant la création d'un Bitmap qui serait contenu dans une ScrollBox.

En passant par l'interface graphique, je sais créer un TImage dans une ScrollBox, il suffit de déposer le composant souhaité dans celle-cci.
Là je veux créer un bitmap (plus grand que l'écran) mais de facon dynamique :

Voici mes bouts de code :

Variable en Globale :

Code :

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

1
2
3
4
5
6
var
  FPrincipale: TFPrincipale;
  Forme_Dessinee:string;
  Dessin_Entite:TImage;
  Bitmap_Fond:TBitmap;
  Nbre_Entite:integer;

A la création de la form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFPrincipale.FormCreate(Sender: TObject);
begin
Nbre_Entite:=0;
DoubleBuffered:=true;
Forme_Dessinee:='Entite';
Bitmap_Fond:=TBitmap.Create;
Bitmap_Fond.Width:=FPrincipale.Width;
Bitmap_Fond.Height:=FPrincipale.Height;
Bitmap_Fond.Canvas.Brush.Color:=clWhite;
FPrincipale.Repaint;
end;

et dans le OnPaint :

Code :

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

1
2
3
4
procedure TFPrincipale.FormPaint(Sender: TObject);
begin
Canvas.Draw(0,0,Bitmap_Fond);
end;

Ce que je souhaite, c'est de créer ce bitmap dans la ScrollBox, est nous sur le canvas de la Fenêtre Principale.

Merci de votre aide.

[LadyWasky]

Je te suggère de placer un TPaintBox dans ta ScrollBox, et tu dessines ton bitmap dans la TPaintBox (évènement OnPaint de la PaintBox)

[Thierry Laborde]

Salut,

Sinon pourquoi tu ne créé pas dynamiquement un composant Timage sur la scrollbox et tu met ton bitmap dans le Timage.

[ero-sennin]

Salut,

Je te suggère de placer un TPaintBox dans ta ScrollBox, et tu dessines ton bitmap dans la TPaintBox (évènement OnPaint de la PaintBox)

En effet, j'y avais pas pensé. Merci

Salut,

Sinon pourquoi tu ne créé pas dynamiquement un composant Timage sur la scrollbox et tu met ton bitmap dans le Timage.

Je vais essayer aussi cette méthode, je vous tiens tous les 2 au courant
Merci

[ero-sennin]

J'ai tester une des méthodes pour le moment, et je bloque à un endroit.

Je vous mets le code:

Déclaration des variables en globales :

Code :

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

1
2
3
4
5
6
7
var
  FPrincipale: TFPrincipale;
  Forme_Dessinee:string;
  Dessin_Entite:TImage;
  Bitmap_Fond:TBitmap;
  Nbre_Entite:integer;
  Conteneur_Bitmap_Fond:TImage;

Dans Le FormCreate :

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
procedure TFPrincipale.FormCreate(Sender: TObject);
begin
Nbre_Entite:=0;
DoubleBuffered:=true;
Forme_Dessinee:='Entite';
Conteneur_Bitmap_Fond:=TImage.Create(self);
Bitmap_Fond:=TBitmap.Create;
Conteneur_Bitmap_Fond.Parent:=ScrollBox;
Conteneur_Bitmap_Fond.Width:=2000;
Conteneur_Bitmap_Fond.Height:=1500;
Bitmap_Fond.Width:=1000;
Bitmap_Fond.Height:=1000;
Bitmap_Fond.Canvas.Brush.Color:=clWhite;
Conteneur_Bitmap_Fond.Canvas.Draw(0,0,Bitmap_Fond);
FPrincipale.Repaint;
end;

Dans le MouseUp :

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
procedure TFPrincipale.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Forme_Dessinee='Entite' then
begin
  Nbre_Entite:=Nbre_Entite+1;
  Dessin_Entite := TImage.Create(Self);
  Dessin_Entite.Parent:=je ne sais pas;
  Dessin_Entite.Width:=100;
  Dessin_Entite.Height:=150;
  Dessin_Entite.Top:= (Y-(Dessin_Entite.Height div 2));
  Dessin_Entite.Left:=(X-(Dessin_Entite.Width div 2));
  Dessin_Entite.Canvas.Pen.Color:=clBlack;
  Dessin_Entite.Canvas.Brush.Color:= clWhite;
  Dessin_Entite.Canvas.Brush.Style:=bsSolid;
  Dessin_Entite.Canvas.Rectangle(0,0,Dessin_Entite.Width,Dessin_Entite.Height);
  Dessin_Entite.Tag:=Nbre_Entite;
  FPrincipale.Repaint;
end;

Mon soucis, se trouve je pense dans le MouseUp, lorsque je crée un nouveau "Dessin_Entite".
Je ne sais pas comment dire : Tu dois dessiner ce rectangle sur le Bitmap_Fond qui est créée dans un Timage, lui même contenu dans la ScrollBox.

Si vous pouvez m'indiquez mon erreur SVP.
Merci

[Thierry Laborde]

J'ai executé ton code chez moi et cela fonctionne (J'ai juste modifié 2-3 choses, j'expliquerai en dessous). Juste pour résumer ce que cela fait, afin d'être sur que cela correspond à ce que tu veux :

J'ai une ScrollBox sur ma form, un rectangle blanc se dessine sur ma scrollbox, ensuite quand je clique à un endroit sur la scrollbox, d'autres rectangles se dessinent. Est-ce correct ?

Sinon voila ce que j'ai modifié :

l'évenement OnMouseUp est mis sur la ScrollBox et pas sur la form donc j'ai :

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
procedure TFPrincipale.ScrollBoxMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Forme_Dessinee='Entite' then
  begin
    Nbre_Entite:=Nbre_Entite+1;
    Dessin_Entite := TImage.Create(Self);
    Dessin_Entite.Parent:=scrollbox;
    Dessin_Entite.Width:=100;
    Dessin_Entite.Height:=150;
    Dessin_Entite.Top:= (Y-(Dessin_Entite.Height div 2));
    Dessin_Entite.Left:=(X-(Dessin_Entite.Width div 2));
    Dessin_Entite.Canvas.Pen.Color:=clBlack;
    Dessin_Entite.Canvas.Brush.Color:= clwhite;
    Dessin_Entite.Canvas.Brush.Style:=bsSolid;
    Dessin_Entite.Canvas.Rectangle(0,0,Dessin_Entite.Width,Dessin_Entite.Height);
    Dessin_Entite.Tag:=Nbre_Entite;
    FPrincipale.Repaint;
  end;
end;

ensuite dans le oncreate de la Form j'ai attribué la ScrollBox comme Parent au composant Timage. ce qui donne donc :

Code :

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

Conteneur_Bitmap_Fond.Parent:=ScrollBox;

Puis j'ai redirigé l'évenement OnMouseUp du composant Timage sur celui de la scrollbox (Vu que le composant Timage est au dessus de la scrollbox c'est lui qui intercepte les OnMouseUp).
J'ai donc rajouté de le Oncreate de la Form la ligne suivante :

Code :

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

Conteneur_Bitmap_Fond.OnMouseUp:=ScrollBoxMouseUp;

Voila, j'espère que ça correspond à ce que tu veux faire.

[ero-sennin]

C'est exactement ce que je souhaitais faire!

Tout fonctionne très bien aussi chez moi
Merci tiki06 pour ces explications et ces modifications de code