[erledigt] für die Elektroniker : STROMQUELLENBERECHNUNG

[p80286]

Und wenn der Benutzer Arial bevorzugt?
Frag Windows, und nutz die Vorgaben:

Delphi-Quellcode:

procedure GetSysFonts(out CaptionFont,MenuFont,SmallCaptFont,Statusfont,MessageFont:string);
var
  LogFont: TLogFont;
  NonClientMetrics: TNonClientMetrics;
begin
  fillchar(logfont,sizeof(logfont),#0);
  fillchar(NonClientMetrics,sizeof(TNonClientMetrics),#0);
  NonClientMetrics.cbSize:=sizeof(TNonClientMetrics);
  if SystemParametersInfo(spi_GetNonclientmetrics,SizeOf(TNonClientMetrics),@NonClientMetrics,0) then begin
    LogFont:=NonClientMetrics.lfCaptionFont;
    CaptionFont:=LogFont.lfFaceName;
    LogFont:=NonClientMetrics.lfMenuFont;
    MenuFont:=LogFont.lfFaceName;
    LogFont:=NonClientMetrics.lfSmCaptionFont;
    SmallCaptFont:=LogFont.lfFaceName;
    LogFont:=NonClientMetrics.lfStatusFont;
    Statusfont:=LogFont.lfFaceName;
    LogFont:=NonClientMetrics.lfMessageFont;
    MessageFont:=LogFont.lfFaceName;
  end;
end;

Gruß
K-H