kolory

Jak zrobić coś takiego:

Mam przycisk i synmemo. Jak nacisne przycisk to ma się włączyc Color Dialog , a jak juz wybiuore se kolor , to na synmemo ma sie wstawic jego kod (taki jak do HTMLa, czyli np. biały to #FFFFFF).

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
if not ColorDialog.Execute then Exit;
s:=IntToHex(ColorDialog.Color,6);
SynEdit.SelText:='#'+s;
end;

Użyłem tego w moim edytorze HTML. Działa idealnie.