Hola Chicos como están?
Agradeciéndoles antemano la colaboración prestada en este foro y tratando de encontrar solución planto este interrogante:
en un link encontre esto que necesitaba:
http://delphi.about.com/od/vclwritee.../aa061104a.htm
Sin embargo me encontré que los usuarios de mi aplicación no son Bilingue
asi que tengo que mostrar los colores en español:
Este es el código que extraje del link:
Código Delphi
[-]
const Colors: array[0..17] of TColor =
(clAqua, clBlack, clBlue, clDkGray, clFuchsia, clGray, clGreen, clLime, clLtGray, clMaroon, clNavy, clOlive, clPurple, clRed, clSilver, clTeal, clWhite, clYellow) ;
procedure TFrmIngresarArticulo.cbxColor1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
cName: string;
begin
if odSelected in State then
(Control as TComboBox).Canvas.Brush.Color := clHighlight
else
(Control as TComboBox).Canvas.Brush.Color := clWhite;
(Control as TComboBox).Canvas.FillRect(Rect);
cName:=ColorToString(Colors[Index]);
Delete(cName,1,2);
with (Control as TComboBox).Canvas do
begin
TextOut(Rect.Left + 24,Rect.Top, cname);
Brush.Color := TColor(Colors[Index]);
Rectangle(Rect.Left + 1,Rect.Top + 1,Rect.Left + 21,Rect.Bottom - 1);
end;
end;
en realidad no se me ocurre utilizando este código obtener lo que deseo:
Alguna idea?
Saludos
novato_erick