Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
procedure changeColor(Control : TWinControl; Rect: TRect; Index: Integer);
begin
if Index = 2 then begin
with (Control as TComboBox) do begin
Canvas.Font.Color := clRed;
Canvas.textOut(Rect.Left,Rect.Top,Items[Index]);
end;
end;
end;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
changecolor(Control, Rect, Index);
end;