Forum: Object-Pascal / Delphi-Language
Delphi
by Neutral General,
2. Sep 2015
Ich weiß nicht. Das eingerückte begin-end; sieht seltsam aus. Das sieht für mich genauso seltsam aus wie sowas:
procedure Test;
begin
end;
Aber direkt unter dem Wert (so wie bei mir) sieht das ganze so nach Klotz aus.
Forum: Object-Pascal / Delphi-Language
Delphi
by Neutral General,
1. Sep 2015
Nichts gegen deinen Vorschlag oder Code, aber ich glaube GroZ mangelt es momentan noch sehr an den Grundlagen und daher glaube ich nicht dass er mit deinem Vorschlag/Code in naher Zukunft etwas sinnvolles anfangen kann :?
Forum: Object-Pascal / Delphi-Language
Delphi
by Neutral General,
1. Sep 2015
Okay :mrgreen:
Die in diesem Fall übersichtlichere case-of Variante sähe so aus:
procedure TForm1.FormMouseDown(...);
begin
case (FModus) of
pmFreiHand:
begin
// Frei Hand
Forum: Object-Pascal / Delphi-Language
Delphi
by Neutral General,
1. Sep 2015
Das mit dem Speedbutton ist visuell keine schlechte Idee aber ich glaube dein Problem sind Variablen.
Beim Klick auf den Button musst du dir merken dass du ab jetzt im MouseDown Linien zeichnen willst.
Dafür kannst du dir z.B. im private Teil des Formulars eine Boolean Variable anlegen:
TForm1 = class(TForm)
// Komponenten und so
private
FLinieZeichnen: Boolean;
public