TShape - neue farbe Organge

[NEPH1L1M]

Hallo,

von Haus aus wird ja bei den TShape-Eigenschaften Brush.color kein Orange angeboten.

Wie kann ich ein TShape orange einfärben bzw. wie kann ich orange als Farbe einbinden ?

Danke für ein Info!

Gruss

NEPH

[Fussball-Robby]

Guck dir mal die Funktion RGB() an.

Mfg

[toms]

Delphi-Quellcode:

const
  clOrange = $000080FF;
begin
  Shape1.Brush.Color := clOrange;
end;

[NEPH1L1M]

Wow, ihr seit ja fix
Und wo füge ich

Delphi-Quellcode:

const
  clOrange = $000080FF;

ein ?
Direkt bei Start von Form ?

[toms]

z.B im OnCreate der Form:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  clOrange = $000080FF;
begin
  Shape1.Brush.Color := clOrange;
end;

[himitsu]

Zitat von toms:

z.B im OnCreate der Form

oder den Hex-Wert direkt Color zuweisen (im QuellCode oder im OI)

[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

[Die Muhkuh]

Du kannst es auch einfach in den interface-Abschnitt verschieben, dann gilt es für die ganze Unit.

[mkinzler]

Oder in eine eigene Unit. Diese kannst du dann auch in andere Programme einbinden

[NEPH1L1M]

Danke für die rasche und umfassende Hilfe, das teste ich gleich!!