TShape - neue farbe Organge

[NEPH1L1M]

Super, klasse - vielen Dank.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);    //hauptprozedur Eröffnung! Doppelklick ins Formular
const
  clOrange = $000080FF;

dann müsste es ja global gelten oder ?

Oder muss ich es bei jeder Procedure

Delphi-Quellcode:

// IPL17-2
procedure TForm1.IPL172Click(Sender: TObject);
const
  clOrange = $000080FF;
begin
     radiogroup1.ItemIndex:=0; // Auf "ohne Bohrungen" setzen
     Laenge.Enabled:=true; //Eingabefelder aktiv für Eingabe schalten, oben ja deaktiviert
     Breite.Enabled:=true;
     Flaeche.Enabled:=false;
       listbox1.ItemIndex:=2;
     edit1.text:='IPL17-2';
     Shape1_Rechteck.Brush.Color := clOrange; // Rechteck einfärben neben Belastung für rechteckfläche
     Shape2_Kreis.Brush.Color := clOrange; // Kreis einfärben neben Belastung für Kreisfläche
     Shape1_Rechteck.Brush.Style :=  bsSolid; //Fläche voll, ohne Profil
     Shape2_Kreis.Brush.Style    :=  bsSolid; //Fläche voll, ohne Profil

extra einbinden ?

Gruss