peut-être que je me trompe mais le pc sur lequel tu a essayé n'a-til pas plus de mémoire vive que le tient car on a déjà eu cette question me semble - til et il n'y avait pas assez de Ram.
J'ai essayé la PaintBox qui effectivement me donne satisfaction pour la rapidité.
Mais si je met la paintbox dans une scrollbox.....
et que je déplace les ascenseurs.... le contenu de la paintbox
s'efface, il n'y a aucun refresh... (chose qui était géré en
automatique par le Timage)... et comme je ne sais pas comment
intercepter l'évènement de déplacement des ascenseur... je ne vois pas
comment forcer un refresh........
vue que je n'ai jamais utilisé de PaintBox, ai-je omis un élément, une
propriétés, ou quelque chose qui permette de conserver cette
fonctionnalité.
Merci...
Fabien FERT [:)]
www.sigmadia.fr.fm
Vous n’avez pas trouvé la réponse que vous recherchez ?
Il faut repeindre l'image sur le Canvas de la PaintBox à chaque fois que son événement OnPaint est appelé, pas seulement afficher le bitmap une seule fois au début. Et il peut être utile d'utiliser les propriétés Tracking=True et Smooth=True de la HorzScrollBar et VertScrollBar de la ScrollBox (de façon à ce que le réaffichage se fasse aussi pendant le tracking, pas seulement quand l'utilisateur relâche la souris).
désolé [auteurdetail.aspx?ID=10455 Forman]... ceci
ne fonctionne pas... car si tu redessine l'image sur un OnPaint.. tu
crées un comportement récursif dans lequel il redessine en permanence...
et comme on ne peux pas capturer l'évènement de mouvement des ascenseur dans une scrollBox...
Je me suis dit, il ne reste qu'a enlever la scrollbox et mettre un
TscrollBar et gérer le rafraichissement sur l'évenement OnScroll (ou On
change)....
L'image est bien redessinée mais elle disparait tout de suite... en
fait elle n'apparait plus dés qu'on arrête de déplacer le scroll !!!
est-ce que ça vient du Panel ?? qui contient la PaintBox ?
La structure est :
TFrom
-> TPanel
-> TPageControl
-> TTabSheet
-> TPanel
-> TPaintBox
Est-ce que c'est ça qui m'efface le contenu de la PaintBox ???
oui j'ai supprimé la scroll box car ça ne me permettait pas d'intercepté les déplacement des ascenseurs... donc...
j'ai juste mis un TScrollBar dessous ma PaintBox. et je redessine les
éléments de ma PaintBox sur l'evenement onScroll... en plus il semble
que ce soit plus fluide que de mettre le PaintBox dans une ScrollBox.
Par contre, fait étrange : l'ensemble des éléments de mon TPanel (celui
qui est juste sur le Form), clignotent lors du déplacement de ma
scrollbar (les autres panel en dessous, les boutons, etc.... enfin tout
ce qui est en dessous de ce panel)... alors que les panel à coté
restent fixe eux !!!!
procedure TForm1.PaintBox1Paint(Sender: TObject);
var i,X,Y : integer;
begin
with PaintBox1.Canvas do begin
Brush.Color := clWhite;
FillRect(PaintBox1.ClientRect);
for i := 0 to 999 do begin
Pen.Color := Random($FFFFFF);
x := random(PaintBox1.Width);
y := random(PaintBox1.Height);
MoveTo(X,Y);
x := random(PaintBox1.Width);
y := random(PaintBox1.Height);
LineTo(X,Y);
end;
end;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
PaintBox1.Refresh;
end;