colorpickers farben in hex umwandeln

[alanblack]

hier erstmal die source von Laufschrift.pas:

Delphi-Quellcode:

unit Laufschrift;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    RadioGroup1: TRadioGroup;
    ColorPickCombo1: TColorPickCombo;
    ColorPickCombo2: TColorPickCombo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

uses Unit2, Unit3, Unit4, Unit1;
{$R *.dfm}

procedure TForm5.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
frmtextview.smemo.lines.add('<marquee>' + edit1.Text + '</marquee>');
end;

end.

man wählt die farbe aus. gibt den laufschrifttext ein und klickt auf OK!
DANN KOMMT DER CODE IN FRMTEXTVIEW FÜR DIESE LAUFSCHRIFT
MAN SPEICHERT ES UND WENN MAN ZB DIE FARBE ROT ANGEGEBEN HAT IST OBEN EINE LAUFSCHRIFT IN DER FARBE ROT