Créer un Bitmap dans une ScrollBox

Version imprimable

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:

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:

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:

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.

01/08/2006, 10h07
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)
01/08/2006, 11h30
Thierry Laborde

Salut,

Sinon pourquoi tu ne créé pas dynamiquement un composant Timage sur la scrollbox et tu met ton bitmap dans le Timage.
01/08/2006, 12h02
ero-sennin

Salut,

Citation:

Envoyé par waskol

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

Citation:

Envoyé par tiki06

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

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:

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:

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:

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

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:

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:

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:

Conteneur_Bitmap_Fond.OnMouseUp:=ScrollBoxMouseUp;

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

01/08/2006, 14h41
ero-sennin

C'est exactement ce que je souhaitais faire!

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

Rebonjour,

Pour éviter de créer un nouveau Post, je mets ici un petit soucis dont je n'arrive pas à trouver la source du problème.

Je souhaite coder l'événement OnClick de mets TImage.

Pour cela, j'ai déclarer une procédure comme ceci :
Code:

1 2 3 4 5 6 private { Déclarations privées } procedure ClickEntite(Sender: TObject); public { Déclarations publiques } end;
Ensuite, voici ce que dois faire l'événement :
Code:

1 2 3 4 5 6 7 procedure ClickEntite(Sender: TObject); var ImageClic:TImage; begin ImageClic:=TImage(Sender); ImageClic.Canvas.TextOut(5,5,'Test'); end;
Et enfin, j'ai fais le pointage du OnClick de mes TImage vers ClickEntite :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 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; Dessin_Entite.Name:='Entite'+IntToStr(Nbre_Entite); Dessin_Entite.OnClick:=ClickEntite; FPrincipale.Repaint; end; end;
Je ne sais pas si ce qui est en rouge est juste. J'ai essayer ceci :

Code:

Dessin_Entite.OnClick:=ClickEntite(Sender);

Mais cela me génére une erreur de plus.

L'erreur que m'indique Delphi se trouve dans la déclaration dans la partie Private et cette erreur et la suivante :
Code:

1 2 [Erreur] UPrincipale.pas(33): Déclaration forward ou external non satisfaite : 'TFPrincipale.ClickEntite' [Erreur fatale] EntiteDraw.dpr(5): Impossible de compiler l'unité utilisée 'UPrincipale.pas'
Je ne vois pas trop où est mon erreur :(
Merci

01/08/2006, 17h34
Thierry Laborde

Salut,

Tu as déclaré dans ta form un évenement ClickEntite, mais ensuite quand tu le décris dans ton implmentation tu oublies de le rattacher à ta form.
Donc tu as tout simplement oublié ça :

Citation:

procedure TFPrincipale.ClickEntite(Sender: TObject);
var
ImageClic:TImage;
begin
ImageClic:=TImage(Sender);
ImageClic.Canvas.TextOut(5,5,'Test');
end;

ca devrait fonctionner avec cette modif (Il faut rajotuer ce qui est en gras et Rouge).
01/08/2006, 18h34
ero-sennin

Ah ok.

C'était vraiment tout bête :roll:
J'éviterai de faire cette erreur à l'avenir.

Merci tiki06 ;)