ECRITURE GRAPHIQUE MAIS PROB, AIDE SVP

Commentaire de Nono40 le 02/10/2002 22:40:32

Bestiol à raison, pour ne pas perdre le contenu, il est préférable d'utiliser un TImage plutôt qu'un TPaintBox. J'ai modifié ton programme pour qu'il fonctionne comme tu le souhaites, voici ce qu'il faut faire :

*** Sur la fiche à la conception :
Supprime PaintBox1 et Label1
Met Image2 en avant plan avec
  Image2.AutoSize à False
  Image2.Transparent à True
  Image2 à la même taille que Image1
Ajoute un Image3 sur la fiche dont
  Image3.Visible à False
Supprime le Edit1.OnKeyPressed

*** Dans le source il ne doit rester que ceci :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var i,j: integer;
begin
  Image3.Canvas.Rectangle(Image3.ClientRect);
  Image3.Canvas.Font.Color := clRed;
  Image3.Canvas.TextOut(0,0,Edit1.Text);
  for j:=0 to Image3.Height do for i:=0 to Image3.Width  do
    if (Image3.Canvas.Pixels[i,j])=clRed
      then Image2.Canvas.Pixels[1+2*i,1+2*j]:=$00FFA953
      else Image2.Canvas.Pixels[1+2*i,1+2*j]:=clWhite;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image3.Width  :=Image2.Width Div 2;
  Image3.Height :=Image2.Height Div 2;
  Image3.Canvas.Brush.Color:=clWhite;
end;

end.


*** Principe
On dessine le texte dans Image3 en rouge sur fond blanc. Puis Image3 est copié dans image2 pixel par pixel en modifiant le rouge en la couleur voulue. Les autres points de Image3 sont copiés en Blanc. Comme Image2 est transparente avec le blanc comme couleur de transparence ( c'est la couleur par défaut ), alors seuls les points de ton afficheur LCD sont visible. L'utilisation des TImage permet de conserver le dessin même si la fenêtre est masquée. De plus le texte entier est pris en compte, donc même si tu réduis le texte dans Edit1, les caractères effacés sont biens supprimés de l'affichage...


Par contre l'utilisation de Pixels[] est très, très lente... Si tu souhaites optimiser le code il ne faut pas l'utiliser. Dans le cas de TImage avec des Bitmap en 24 bits par point, il est possible d'optimiser le code en utilisant la propriété ScanLines[] des bitmaps.

Si tu veux le source par mail, laisse moi un message avec ton adresse...

Nono.