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:

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!!

[Namenloser]

Ist dieser RGB-Wert nicht ein Türkis?
Imho müsste es so heißen: $00ff8000

[NEPH1L1M]

Verschoben ins Interface - nun funzt es global!!

Nein Farbe ist korrekt = Orange !

Passt alles wunderbar :-D :-D :-D

[3_of_8]

@NamenLozer: Im Speicher liegt das ganze als RRGGBB00. Als Integer interpretiert ist das auf einem Little-Endian-System wie dem x86 0x00BBGGRR. Also ist 0x000080FF völlig richtig: Rote Farbe mit voller Intensität, grüne Farbe mit halber Intensität, blaue Farbe gar nicht. ;)

[mkinzler]

Es wird nicht RGBA sondern ABGR verwendet

[NEPH1L1M]

Hi nochmals,

auf die function RGB zurück zukommen bzw. allgemein auf die Farbcodes wie im Beispiel hier "$000080FF".

Wie komme ich an diese Werte ?

In der Hilfe finde ich z.B. "RGB Color Spaces" oder unter RGB function dieses hier

"Arguments
red
Required. Number in the range 0-255 representing the red component of the color.
green
Required. Number in the range 0-255 representing the green component of the color.
blue
Required. Number in the range 0-255 representing the blue component of the color."


Dankee im voraus für einen Tipp!

Gruss

[mkinzler]

Der Wert ist in Hex und zwar im Format
$AABBGGRR

[Fussball-Robby]

Wenn du dich mit Hex allerdings nicht auskennst, kannst du auch RGB nehmen. Rot sähe damit so aus:

Delphi-Quellcode:

Color := RGB(255, 0, 0);

Die Parameter sind die Farbanteile von Rot, Grün & Blau jeweils von 0 - 255.

Mfg

[mkinzler]

255 in Hex wäre dann §ff
0 $0
Rot wäre also $000000ff

[1ermehr]

rgb funktioniert so wie licht...
0 = nix also ganz dunkel 255 = alles was geht also ganz hell(bezogen auf die jeweilige farbe)
und dann muss man halt ausprobieren was welche farbe ergibt: zb. rot und grün ergeben zusammen brauntönen
blau und grün ergeben türkies artige töne rot und blau lia artige und alle zusammen ergeben grau und weis töne

[NEPH1L1M]

Hi,

ok super, danke!

D.h. ich kann colors auch direkt als RGB Wert angeben, diese könnte ich mir ja aus Programmen
wie z.B. PaintShoPro "holen", dort kann man sich den jeweiligen RGB-Wert auch anzeigen lassen.

Kann ich z.B. diesen Farbwert

Delphi-Quellcode:

Color := RGB(255, 0, 0);

einfach so definieren oder
muss ich vorher eine bestimmte Unit einbinden ?

Oder einfach ins Interface einbinden wie
mit

Delphi-Quellcode:

const  clOrange = $000080FF;

?

Thx vorab!

Gruss :thumb:

[DeddyH]

Mit der Zuweisung

Delphi-Quellcode:

Color := RGB(255,0,0);

solltest Du ein schön rotes Formular bekommen (Unit ist glaube ich Windows, ohne Gewähr).

[Namenloser]

Zitat:

Zitat von 3_of_8

@NamenLozer: Im Speicher liegt das ganze als RRGGBB00. Als Integer interpretiert ist das auf einem Little-Endian-System wie dem x86 0x00BBGGRR. Also ist 0x000080FF völlig richtig: Rote Farbe mit voller Intensität, grüne Farbe mit halber Intensität, blaue Farbe gar nicht. ;)

Stimmt, ich komm da immer durcheinander. Wenn man G, B, R, A als Bytes in dieser Reihenfolge in einen Record packt ist es in der richtigen Reihenfolge. Und bei HTML ist es auch #RRGGBB.