Ein laufender Graph mit Canvas...

[NeoXan]

Moin,

wie schaffe ich es, dass ich das momentane Bild in einer Image Componente um 1 pixel nach links verschiebe, so dass quasi rechts 1 pixel frei wird. Am besten wäre noch, wenn man den Bereich festlegen, der verschoben werden soll.

mfg
NeoXan

[teebee]

Schau Dir mal das hier an, da habe ich sowas in der Art beschrieben. Das Beispiel lässt sich auch auf TImage übertragen.

Gruß, teebee

[NeoXan]

Delphi-Quellcode:

for a:=1 to imgStats.Height-1 do
 for b:=1 to imgStats.Width-1 do
  imgStats.Canvas.Pixels[b,a] := imgStats.Canvas.Pixels[b+1,a];

hmm...damit müsste doch eigentlich alle pixel um eins verschoben werden. Nur bei mir erscheint dann ganz rechts alles schwarz???

[teebee]

Mit einer Schleife auf alle Pixel einzeln zuzugreifen ist so ziemlich die langsamste Möglichkeit, einen Bildausschnitt zu verschieben.
Schau Dir in der Win32-API mal die Funktion 'BitBlt' an. Da gibst Du ein Zielrechteck und eine Quellposition an, das Verschieben geht blitzschnell. Ein Beispiel findest Du wie gesagt in dem Posting, das ich oben erwähnt habe ('oszi.zip').

Gruß, teebee

[NeoXan]

hmmm...das funzt so weit so gut, nur leider zieht sich von Rechts die Farbe etwas rüber ;)

http://www.RealmofNameless.de/graph.jpg

[teebee]

Dann zeig mal Code...

Gruß, teebee