Is it possible to change/translate labels in colorpicker (More colors, back, ...) ?
Thanks
uses
FMX.TMSFNCColorSelector, FMX.StdCtrls;
procedure TForm59.FormCreate(Sender: TObject);
var
s: TTMSFNCColorSelectorEx;
I, K: Integer;
begin
TMSFNCColorPicker1.Mode := csmExtendedMore;
s := (TMSFNCColorPicker1.Selector as TTMSFNCColorSelectorEx);
s.Items[0].Text := 'B';
s.Items[s.Items.Count - 2].Text := 'A';
for I := 0 to s.ComponentCount - 1 do
begin
if s.Components[I] is TTMSFNCCustomControl then
begin
for K := 0 to s.Components[I].ComponentCount - 1 do
begin
if s.Components[I].Components[K] is TButton then
(s.Components[I].Components[K] as TButton).Text := 'C';
end;
end;
end;
end;