Zitat von
Cöster:
Hi!
Wie kann man bei einer TColorBox die Anzeige des Namens der Farbe ändern? Ist das überhaupt möglich? Es soll nur ein rechteckiger Kasten mit der Farbe zu sehen sein.
Hallo,
das mache ich einfach mit TEdit: kleines quadratisches Edit-Feld ohne Text, bei OnClick öffnet sich der Farbauswahldialog, und was da ausgewählt wird, wird als Farbe für das Feld verwendet.
Delphi-Quellcode:
procedure TRKIniSettingTable.ColorEditClick (Sender: TObject);
var oldcolor : TColor;
begin
if not Assigned (IniColorDialog) then
begin
beep;
exit;
end;
with Sender as TEdit do
begin
oldcolor := Color;
Color := clWhite;
Text := '?';
end;
IniColorDialog.Color := oldcolor;
if IniColorDialog.Execute then
begin
with Sender as TEdit do
begin
Color := IniColorDialog.Color;
Text := '';
end;
end
else
begin
with Sender as TEdit do
begin
Color := oldcolor;
Text := '';
end;
end;
end;
Gruss Reinhard