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