Discussion :

[Tango]

En fait je lis un fichier texte avec des messages datés.
Exemple :
04/10/2005 | 12:25:36.359 | Message

Ces messages sont ensuite affichés dans les TImages (dernier essai une seule TImage).
A chaque nouveau message, j'efface le contenu du canvas de la TImage pour réécrire dedans.

J'ai la possibilité avec mon appli d'avancer ou de remonter le fichier contenant les messages, tout en mettant a jour l'affichage.

Mon probleme arrive parfois dés l'affichage du 3 ou 4eme message, soit plus frequement apres quelques manipulation avance/recul sur la lecture du fichier.

J'espere avoir été assez clair?

[diam's]

Mais au bout d'un certain temps

Pour moi, cela évoque un problème de mémoire.

Si j'ai bien compris, tu affiches un journal sur un fond d'écran coloré...
Ce que je ferais, si c'est un problème mémoire et si c'est possible, c'est, toutes les 5 ou 6 maj du TImage, je détruirais tout, puis je recréerais l'ensemble. (au moment de la destruction/création, si c'est long, tu peux afficher ton fond d'écran avec un message type "Chargement en cours...")

L'autre solution viendrait d'une gestion type "calque", comme sur les logiciels de dessin

Contrairement à beaucoup de participants de ce forum, je suis pas un cador, je ne suis donc pas tout à sûr de la solution que j'avance ici. Mais si ça peut donner une piste...

[Tango]

J'ai deja essayé de recréer les TImages.
Mais je n'arrive pas a les afficher de nouveau apres les avoir récréées.

Je continu de chercher, voir si je n'ai pas oublié de positionner une des propriétés a true.

[tourlourou]

ou de leur donner un parent

[Tango]

:op

Biensur que je leur ai donné un parent...

[Yvan_F1]

Est-ce quelque chose de ce genre que tu essayes de faire ?

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
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  SetBkMode(PaintBox1.Canvas.Handle, TRANSPARENT);
  PaintBox1.Canvas.Font.Color := clRed;
  PaintBox1.Canvas.TextOut(0,0, FText);
end;
 
procedure TForm1.BmcBitBtn1Click(Sender: TObject);
begin
  FText := IntToStr(StrToInt(FText) + 1);
  PaintBox1.refresh;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FText := '1';
end;

[Tango]

J'utilise une TImage et non une TPaintBox, mais dans l'idée c'est a peu pres la meme chose.

J'utilise le TextOut pour afficher lettre par lettre un message dans le canvas.

[Yvan_F1]

Si dans l'idée c'est pareil, alors utilise le PaintBox !
Dans mon exemple, je n'ai aucun problème d'affichage !

[Tango]

J'ai remplacer toutes les TImages par des TPaintBox.
Je n'ai plus aucun probleme d'affichage.
Par contre j'ai quelques bugs qui sont apparues que je vais devoir resoudre au fur et a mesure.
En tout cas ca ne m'explique toujours pas pourquoi avec des TImages, j'avais des problemes.

J'ais une derniere question.
Je suis obligé de mettre le propriété Visible des TPaintBox a false pour pouvoir afficher du texte est-ce normal?

Merci a tous pour votre aide