Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Excel-Farben (https://www.delphipraxis.net/69244-excel-farben.html)

SchLukas 12. Mai 2006 10:49


Excel-Farben
 
Hallo! ich hab mal eine Frage zu den Farbwerten in Excel und deren Behandlung mit Delphi.

ich möchte in einem Excel-Blatt Zellen in der Farbe 'Hellgelb' einfärben. weiß aber nicht so recht wie ich das bewerkstelligen soll. normalerweise benutze ich für solche Aktionen sowas:

Delphi-Quellcode:
ExWs3.range['a'+ inttostr(c), 's'+ inttostr(c)].interior.Color    := clwhite;
oder eben vergleichbar.

nun weiß ich nicht wie ich dieser Color-Eigenschaft den "Wert" Hellgelb zuweisen kann. was gibts da für Möglichkeiten? bzw. generell auch für andere Farben, eben nicht die Standardfarben wie clBlack, clGreen usw.

danke für Tipps schonmal im Voraus! ;)

Mussfragen 12. Mai 2006 11:01

Re: Excel-Farben
 
Die Farbe statt über eine Konstante über die Funktion RBG(R,B,G) zuweisen
R; rot, G;grün, B;blau im Byte-Wertbereich 0..255
Achtung: In Excel werden nicht alle Farben tatsächlich dargestellt, hellgelb kann deshalb nur als blassgeb
dargestellt werden.

Matze 12. Mai 2006 11:04

Re: Excel-Farben
 
Moin,

keine saubere Lösung, aber geht auch:
In Delphi doppelt auf die Color-Eigenschaft klicken, die Farbe wählen und den Farbwert aus dem OI kopieren. Wie gesagt, etwas umständlich, aber imho für einzelne Farbwerte die schnellste Möglichkeit.


Edit: Herzlich Willkommen!

Martin K 12. Mai 2006 11:05

Re: Excel-Farben
 
Naja, Du könntest den Hexadezimalwert verwenden.

Für Hellgelb zum Beispiel: $0080FFFF

Für alle anderen Farben:
leg dir einfach mal einen ColorDialog auf deine Form, dann erhältst du so den Farbwert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    ShowMessage(ColorToString(ColorDialog1.Color));
end;
Gruß, Martin


//Edit: oder Matze's Methode nehmen...

SchLukas 12. Mai 2006 11:43

Re: Excel-Farben
 
danke, werd mal diese Methoden testen ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz