Screen.MenuFont i Delphi4

prøv den her :

type
  TMyScreen = class(TScreen)
  private
    FMenuFont: TFont;
    procedure NotifyForms(Msg: Word);
    procedure IconFontChanged(Sender: TObject);
    procedure SetMenuFont(const Value: TFont);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property MenuFont: TFont read FMenuFont write SetMenuFont;
  end;

{ TMyScreen }

constructor TMyScreen.Create(AOwner: TComponent);
var
  NonClientMetrics: TNonClientMetrics;
begin
  inherited;
  FMenuFont := TFont.Create;

  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
    FMenuFont.Handle := CreateFontIndirect(NonClientMetrics.lfMenuFont)
  else
    FMenuFont.Handle := GetStockObject(SYSTEM_FONT);

  FMenuFont.OnChange := IconFontChanged;
end;

destructor TMyScreen.Destroy;
begin
  FreeAndNil(FMenuFont);
  inherited;
end;

procedure TMyScreen.IconFontChanged(Sender: TObject);
begin
  NotifyForms(CM_SYSFONTCHANGED);
end;

procedure TMyScreen.NotifyForms(Msg: Word);
var
  I: Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
    Screen.Forms[I].Perform(Msg, 0, 0);
end;

procedure TMyScreen.SetMenuFont(const Value: TFont);
begin
  FMenuFont.Assign(Value);
end;



Jens B

Jens -> Det ser ud til at virke, tak for den hurtige hjælp :-)
Det er folk som dig der har gjort Eksperten til hvad den er i dag.
(jeg tænker ikke på de mere tekniske ting, som er Admins ansvar, ej heller de gode CoAdmins, der til tider passer deres frivillige, ulønnede job lidt for godt, efter nogens mening, og ej heller de provokerende ballademagere, der ikke er for kloge mht. ordvalg, men derimod det der virkelig kendetegner Eksperten, nemlig hurtig og effektiv hjælp...)

Tak . Der gik da næsten 30 minutter før jeg gik i gang :-)

Jens B

Delphi4: Screen.Fonts[x]

eksempel: viser alle fonte der er installeret under din Windows platform

var
I : Integer;
begin
  for I := 0 to Screen.Fonts.Count-1 do
  ListBox1.Items.Add(Screen.Fonts[I]);
end;

Mindre kode - mere overblik ;)

Held og Lykke
ZeroHero

Så misster AntiHelt .... Det var IKKE Screen.Fonts[x] i Delphi4 , men der i mod Screen.MenuFont i Delphi4 !!!

Det er ikke det samme ! Så vil du lige tage og heste bedere efter næstegang :-)

Jens B

ZeroHero -> Der er et udmærket eksempel på brugen af Screen.Fonts med Delphi4, havde det været Screen.Fonts jeg havde været ude efter, så havde jeg kigget på det eksempel...

Ellers tak for dit svar, du kunne dog godt have brugt nogle flere heste ;-)

Mindre kode - mere overblik - mindre rigtigt - for få heste ;-)

he he he... st ;)