Malprogramm?

[Plague]

Hallo!

Ich möchte ein Zeichenprogramm mit meinem Delphi programmieren (Hintergrund ist eine Hausarbeit). Ich bräuchte nun mal einen Tipp, bzw. eine Anleitung.

Meine Vorstellungen sehen so aus:
- Zwei mögliche Farben (über zwei Shape-Komponenten und einen ColorDialog wählbar)
- Einfaches Freihand (Freimaus) zeichnen auf einer vorgegebenen weißen Shape-Fläche
- Ferner möchte ich dann noch:
- Rechtecke
- Kreise
- usw.
zeichnen lassen.

Kann mir da jemand helfen?

MfG
Thomas

[choose]

Wo genau hast Du Schwierigkeiten?

[Plague]

Ich habe ehrlich gesagt keine Ahnung wie ich das anstellen muss.

Das soll so ähnlich wie in MS Paint werden. Im Moment stehe ich an der Hürde, dass ich das freihand-Zeichnen nicht hinbekomme. Ich möchte eben auf einer festgelegten Fläche zeichnen können. Verstehst Du was ich meine?
Die Farbe ist dabei erst mal nebensächlich...

[Matze]

Mit einen Shape könnte der schwierig werden, da ein Shape kein Canvas besitzt.

Mit einer PaintBox z.B. könnte das so aussehen:

Delphi-Quellcode:

var x,y: integer;
...
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PaintBox1.Canvas.MoveTo(x,y);
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssleft in shift then PaintBox1.Canvas.LineTo(x,y);
end;

[stb]

sorry, ergänzende Nachfrage: zeichnen von unregelmäßigen Figuren
(sofern diese auch rückgängig machbar sein sollen) wären da polygonstrukturen zum zwischenspeichern angebracht oder bieten
sich (selbstgeschriebene,gekapselte) Punktarrays an(kann ja sein, daß
man den Hintergrund mal wieder herstellen will ?!
stb

[Plague]

Nun habe ich das Problem, dass ich die PaintBox Komponente nicht finden kann. Ist die in Delphi 3 schon vorhanden? Wo finde ich die?

[stb]

mal doch irgendwo hin...
alle möglichen visuellen Komponenten haben die eigenschaft TCanvas
stb
p.s. glaube ich wenigstens

[Matze]

Selbst das Formular hat ein Canvas ;)

Delphi-Quellcode:

Form1.Canvas. ...

oder kurz:

Delphi-Quellcode:

Canvas. ...

[Plague]

Ich habe mich nun entschlossen, eine Imagebox zu verwenden.

Aber wie kann ich nun die Farbe und die Dicke der Striche die ich zeichne festlegen?

[Mirilin]

:hi:

Schau Dir in der Hilfe mal Canvas.Pen.Width und Canvas.Pen.Color ... (Canvas.Brush kann auch nicht schaden) an .

mfg Tobias