From: Toni Sanders <a.sanders@t-online.de>
Subject: Re: How to turn off windows font anti-aliasing ?
Date: 01 Jan 2000 00:00:00 GMT
Message-ID: <386E3B9A.B8D95E06@t-online.de>
Content-Transfer-Encoding: 7bit
References: <84l6ig$83h7@bornews.borland.com>
X-Accept-Language: de,en-US
Content-Type: text/plain; charset=us-ascii
Organization: Inprise/Borland International
Mime-Version: 1.0
Newsgroups: borland.public.delphi.graphics

Hello Sergey, Happy New Year!!!

Try this:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    SmoothFonts: Boolean;
  public
  end;

var
  Form1             : TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SystemParametersInfo(SPI_GETFONTSMOOTHING, 1, @SmoothFonts, 0);
  if SmoothFonts then
    SystemParametersInfo(SPI_SETFONTSMOOTHING, 0, nil, SPIF_UPDATEINIFILE);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if SmoothFonts then
    SystemParametersInfo(SPI_SETFONTSMOOTHING, 1, nil, SPIF_UPDATEINIFILE);
end;

end.

Under Win95 it has only an effect if the Plus! Pack is installed (NT4 by
default).

Cheers
Toni


Sergey Prilutsky schrieb:
>
> Hi, all. How can I temporary turn off windows font anti-aliasing and turn on
> it after drawing ? Thank You.
>
> --
> Sorry for terrible english.
> Sergey Prilutsky.
> mail: psergey@hotmail.com (please do not email files larger then 128Kb)
> Moscow. Russia.