const
{$ifdef Darwin}
csFont='San Francisco';
csFont2='Helvetica Neue';
ciFontSize=11;
ciFontSize2=12;
{$endif}
{$ifdef Linux}
csFont='Roboto';
csFont2='Ubuntu';
ciFontSize=9;
ciFontSize2=11;
{$endif}
{$ifdef windows}
csFont='Roboto';
csFont2='Segou UI';
ciFontSize=9;
ciFontSize2=11;
Procedure ImproveAppearance(aForm: TForm);
var i:integer;
begin
if gsFont='' then
begin
if Screen.Fonts.IndexOf(csFont) <> -1 then
gsFont:=csFont;
if (gsFont='') then
begin
if (CargarFuente(csFont)) then
gsFont:=csFont;
end;
if (gsFont='') and (Screen.Fonts.IndexOf(csFont2) <> -1) then
gsFont:=csFont2;
if (gsFont='') then
begin
if (CargarFuente(csFont2)) then
gsFont:=csFont2;
end;
if gsFont='' then
gsFont:='default';
end;
for i:=0 to aForm.ComponentCount-1 do
begin
if aForm.Components[i] is TSpeedButton then
if TSpeedButton(aForm.Components[i]).Tag>0 then //omito los tag=-1 para mantener preferencias e diseno
begin
TSpeedButton(aForm.Components[i]).Font.Name:=gsFont;
TSpeedButton(aForm.Components[i]).Font.Size:=ciFontSize;
TSpeedButton(aForm.Components[i]).Font.Color:=gFontColor1;
TSpeedButton(aForm.Components[i]).Font.Color:=
ConfigurarColorFuente(TSpeedButton(aForm.Components[i]).Font.Color,
TSpeedButton(aForm.Components[i]).Tag);
end;
if aForm.Components[i] is TButton then
begin
{$ifdef Darwin}
TSpeedButton(aForm.Components[i]).Height:=22;
{$endif}
//if TSpeedButton(aForm.Components[i]).Tag>0 then //omito los tag=-1 para mantener preferencias e diseno
end;
if aForm.Components[i] is TDatetimePicker then
begin
{$ifdef Darwin}
TDatetimePicker(aForm.Components[i]).DateMode:=dmNone;
{$endif}
if TDatetimePicker(aForm.Components[i]).Tag>0 then //omito los tag=-1 para mantener preferencias e diseno
TDatetimePicker(aForm.Components[i]).Font.Color:=
ConfigurarColorFuente(TDatetimePicker(aForm.Components[i]).Font.Color,
TDatetimePicker(aForm.Components[i]).Tag);
end;
if aForm.Components[i] is TMemo then
if TMemo(aForm.Components[i]).Tag<>-1 then
begin
TMemo(aForm.Components[i]).Font.Name:=gsFont;
TMemo(aForm.Components[i]).Font.Size:=ciFontSize2;
TMemo(aForm.Components[i]).Font.Color:=gFontColor2;
TMemo(aForm.Components[i]).Font.Color:=
ConfigurarColorFuente(TEdit(aForm.Components[i]).Font.Color,
TMemo(aForm.Components[i]).Tag);
TMemo(aForm.Components[i]).Color:=
ConfigurarColorFondo(TEdit(aForm.Components[i]).Color,
TMemo(aForm.Components[i]).Tag);
end;
if aForm.Components[i] is TEdit then
if TEdit(aForm.Components[i]).Tag<>-1 then
begin
TEdit(aForm.Components[i]).Font.Name:=gsFont;
TEdit(aForm.Components[i]).Font.Size:=ciFontSize2;
TEdit(aForm.Components[i]).Font.Color:=
ConfigurarColorFuente(TEdit(aForm.Components[i]).Font.Color,
TEdit(aForm.Components[i]).Tag);
TEdit(aForm.Components[i]).Color:=
ConfigurarColorFondo(TEdit(aForm.Components[i]).Color,
TEdit(aForm.Components[i]).Tag);
end;
if aForm.Components[i] is tDateEdit then
begin
tDateEdit(aForm.Components[i]).width:=90;
tDateEdit(aForm.Components[i]).Font.Color:=
ConfigurarColorFuente(tDateEdit(aForm.Components[i]).Font.Color,
tDateEdit(aForm.Components[i]).Tag);
tDateEdit(aForm.Components[i]).Color:=
ConfigurarColorFondo(tDateEdit(aForm.Components[i]).Color,
TEdit(aForm.Components[i]).Tag);
end;
if aForm.Components[i] is TBCButtonFocus then
begin
TBCButtonFocus(aForm.Components[i]).StateNormal.FontEx.name:=gsFont;
TBCButtonFocus(aForm.Components[i]).StateHover.FontEx.name:=gsFont;
TBCButtonFocus(aForm.Components[i]).StateClicked.FontEx.name:=gsFont;
TBCButtonFocus(aForm.Components[i]).StateHover.Background.Color:=
Bright(TBCButtonFocus(aForm.Components[i]).StateNormal.Background.Color,20);//boton de acceso rapido hover
TBCButtonFocus(aForm.Components[i]).StateNormal.FontEx.Color:=
GetContrastColor(TBCButtonFocus(aForm.Components[i]).StateNormal.Background.Color);
TBCButtonFocus(aForm.Components[i]).StateHover.FontEx.Color:=
GetContrastColor(TBCButtonFocus(aForm.Components[i]).StateNormal.Background.Color);
TBCButtonFocus(aForm.Components[i]).StateClicked.FontEx.Color:=
GetContrastColor(TBCButtonFocus(aForm.Components[i]).StateNormal.Background.Color);
end;
if aForm.Components[i] is TBCButton then
begin
TBCButton(aForm.Components[i]).StateNormal.FontEx.name:=gsFont;
TBCButton(aForm.Components[i]).StateHover.FontEx.name:=gsFont;
TBCButton(aForm.Components[i]).StateClicked.FontEx.name:=gsFont;
TBCButton(aForm.Components[i]).StateHover.Background.Color:=
Bright(TBCButton(aForm.Components[i]).StateNormal.Background.Color,20);//boton de acceso rapido hover
TBCButton(aForm.Components[i]).StateNormal.FontEx.Color:=
GetContrastColor(TBCButton(aForm.Components[i]).StateNormal.Background.Color);
TBCButton(aForm.Components[i]).StateHover.FontEx.Color:=
GetContrastColor(TBCButton(aForm.Components[i]).StateNormal.Background.Color);
TBCButton(aForm.Components[i]).StateClicked.FontEx.Color:=
GetContrastColor(TBCButton(aForm.Components[i]).StateNormal.Background.Color);
end;
if aForm.Components[i] is TLabel then
if TLabel(aForm.Components[i]).Tag<>-1 then
begin
TLabel(aForm.Components[i]).Font.name:=gsFont;
TLabel(aForm.Components[i]).Font.Color:=ConfigurarColorFuente(TLabel(aForm.Components[i]).Font.Color,
TLabel(aForm.Components[i]).Tag);
end;
if aForm.Components[i] is TStaticText then
begin
TStaticText(aForm.Components[i]).Font.Name:=gsFont;
if TStaticText(aForm.Components[i]).Tag<>-1 then
begin
TStaticText(aForm.Components[i]).Font.name:=gsFont;
TStaticText(aForm.Components[i]).Font.Color:=cFontColor1;
TStaticText(aForm.Components[i]).Font.Color:=
ConfigurarColorFuente(TStaticText(aForm.Components[i]).Font.Color,
TStaticText(aForm.Components[i]).Tag);
end;
end;
if aForm.Components[i] is TBCLabel then
begin
TBCLabel(aForm.Components[i]).FontEx.name:=gsFont;
if TBCLabel(aForm.Components[i]).Tag>0 then
begin
TBCLabel(aForm.Components[i]).Font.name:=gsFont;
TBCLabel(aForm.Components[i]).FontEx.Color:=
ConfigurarColorFuente(TBCLabel(aForm.Components[i]).FontEx.Color,
TBCLabel(aForm.Components[i]).Tag);
end;
end;
if aForm.Components[i] is TPanel then
begin
if TPanel(aForm.Components[i]).Tag<>-1 then
begin
TPanel(aForm.Components[i]).Font.Color:=cFontColor1;
TPanel(aForm.Components[i]).Font.Color:=
ConfigurarColorFuente(TPanel(aForm.Components[i]).Font.Color,
TPanel(aForm.Components[i]).Tag);
TPanel(aForm.Components[i]).Color:=
ConfigurarColorFondo(TPanel(aForm.Components[i]).Color,
TPanel(aForm.Components[i]).Tag);
end;
end;
if aForm.Components[i] is TBCPanel then
begin
if TBCPanel(aForm.Components[i]).Tag<>-1 then
begin
TBCPanel(aForm.Components[i]).Font.Color:=cFontColor1;
TBCPanel(aForm.Components[i]).Background.Gradient1.StartColor:=gBackColorDeg1;
TBCPanel(aForm.Components[i]).Background.Gradient1.EndColor:=gBackColorDeg2;
TBCPanel(aForm.Components[i]).Background.Gradient2.StartColor:=gBackColorDeg2;
TBCPanel(aForm.Components[i]).Background.Gradient2.EndColor:=gBackColorDeg3;
end;
end;
if aForm.Components[i] is TRxDBGrid then
begin
{$ifndef windows}
TRxDBGrid(aForm.Components[i]).Font.name:=gsFont;
{$endif}
for j:=0 to TRxDBGrid(aForm.Components[i]).Columns.Count-1 do
begin
{$ifndef windows}
TRxDBGrid(aForm.Components[i]).Columns[j].Font.name:=gsFont;
{$endif}
TRxDBGrid(aForm.Components[i]).Columns[j].Font.Color:=clBlack;
end;
end;
if aForm.Components[i] is TDBGrid then
begin
{$ifndef windows}
TDBGrid(aForm.Components[i]).Font.name:=gsFont;
{$endif}
for j:=0 to TDBGrid(aForm.Components[i]).Columns.Count-1 do
begin
{$ifndef windows}
TDBGrid(aForm.Components[i]).Columns[j].Font.name:=gsFont;
{$endif}
TDBGrid(aForm.Components[i]).Columns[j].Font.color:=clBlack;
end;
end;
end;
end