Gitter (Raster) und Linear auf Image erstellen ?

[thomas2009]

Hallo

damit man auf die Image leichter bearbeiten kann, möchte ich einen Raster auf Image erstellen
Der Raster kann ein- und ausgeblendet werden
Hat jemand eine gute Idee ?
Für Linear möchte ich auf Image Seite einen Panel mit Bild. Oder gibt es noch eine andere besserer Lösung ?

_

[Luckie]

Mit den Methoden MoveTo und LineTo der Klasse TCanvas kannst du auf edem Canvas des TImage zeichnen. Für das Raster brauchst du zwei for-Schleifen, einmal für die senkrechten Linienen und einmal für die waagerechten.

Angemerkt sei noch, dass die TImage Komponente nicht zum Zeichnen gedacht ist, sondern eher zum anzeigen von statischen Bildern und Grafiken. Zum Zeichnen nimmt man eigentlich eine PaintBox.

Lineal schreibt man übrigens am End emit "l" und nicht mit "r". Dafür würde ich mir aber eine fertige Komponente suchen. Man kann das sicherlich auch selber machen, doch dürfte das, insbesondere beim senkrechten Lineal, etwas aufwendig werden.

[thomas2009]

Zitat von Luckie:

Mit den Methoden MoveTo und LineTo der Klasse TCanvas kannst du auf edem Canvas des TImage zeichnen.

Die Linien mit dieser Methode werden aber gelöscht, wenn ich ein Objekt drauf
bewege

>> die TImage Komponente nicht zum Zeichnen gedacht
Ich verwende TImage zum zeichnen und bis jetzt funktioniert es sehr gut. Mit PaintBox
würde ich auch testen. Vielleicht geht es noch besser

MFG

_

[taaktaak]

Zu welchem Zeitpunkt zeichnest du die Linien?
Da sind wir auch schon bei einem wesentlichen Unterschied zwischen TImage und TPaintbox: Die Paintbox hat ein OnPaint-Event in dem du die Linien immer zum passenden Zeitpunkt zeichnen kannst.

[Luckie]

Zitat von taaktaak:

Da sind wir auch schon bei einem wesentlichen Unterschied zwischen TImage und TPaintbox: Die Paintbox hat ein OnPaint-Event in dem du die Linien immer zum passenden Zeitpunkt zeichnen kannst.

Deswegen nimmt man aucheine Paintbox zum Zeichnen. Und zwar zeichnet man da auf ein Bitmap im Speicher und kopiert es bei Bedarf auf den Canvas der Paintbox. Code, der demonstriert wie das geht, findest du im Forum.

[taaktaak]

Jo, genau! Zu dieser Erkenntnis bin ich (leider zu spät) auch gekommen

[DeddyH]

Zu welcher Erkenntnis? Paintbox benutzen oder Speicherbitmap?

[taaktaak]

Beides!

[stahli]

Man kann die Paintbox auch transparent und Maus-Transparent gestalten und über das Bild legen.
Wenn man die Bildbearbeitung ansonsten schon fertig hatte ist das vermutlich wenig aufwändig.
Die Paintbox braucht man dann nur sichtbar/unsichtbar schalten...
Schwieriger wäre es vielleicht nur bei Verwendung eines großen Bildes in einem Scrollbereich.

stahli

[thomas2009]

OK, ich verwende nun PaintBox statt Image zum zeichnen
Wie kann ich den Gitter drauf anzeigen lassen ?

Beim Minimieren und maximieren, werden die Bilder, was ich in PaintBox geladen habe, gelöscht !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\Test.bmp');
paintbox1.Canvas.Draw(0,0,Bitmap);
bitmap.free;
end;

Wie kann ich sie fixieren ?