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.