Création et gestion des bitmaps hors écran

Remonter à Bitmaps hors écran

Lorsque vous créez des images graphiques complexes, vous devez généralement éviter de les dessiner directement sur le canevas qui apparaît à l'écran. Au lieu de les dessiner sur le canevas d'un formulaire ou d'un contrôle, vous devez plutôt construire un objet bitmap puis dessiner sur son canevas avant de copier la totalité de l'image sur le canevas affiché.

La méthode Paint d'un contrôle graphique est un exemple d'utilisation typique d'un bitmap hors écran. Comme avec tout objet temporaire, l'objet bitmap doit être protégé par un bloc try..finally :

type
  TFancyControl = class(TGraphicControl)
  protected
    procedure Paint; override;                               { redéfinir la méthode Paint }
  end;
procedure TFancyControl.Paint;
var
  Bitmap: TBitmap;                        { variable temporaire pour le bitmap hors écran }
begin
  Bitmap := TBitmap.Create;{ construire l'objet bitmap }
  try
    { dessiner sur le bitmap }
    { copier le résultat dans le canevas du contrôle }
  finally
    Bitmap.Free;                                             { détruire l'objet bitmap }
  end;
end;