From: Eddie Shipman <shipman@inetport.com>
Subject: Re: Draw the outline of a font
Date: 20 May 1999 00:00:00 GMT
Message-ID: <374482BA.DB5A523B@inetport.com>
Content-Transfer-Encoding: 8bit
References: <37447F7F.52FA@c2i.net>
X-Accept-Language: en
Content-Type: text/plain; charset=iso-8859-1
Organization: Another Netscape Collabra Server User
Mime-Version: 1.0
Reply-To: edward.shipman@tgslc.org
Newsgroups: borland.public.delphi.graphics

Try this on a blank form with a button:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Form1.Canvas do
  begin
    Font.Color := clWhite;
    Brush.Style := bsClear;
    TextOut(150,100, 'Now is the time for all good men to come to the aid of their country');
    Font.Color := clRed;
    TextOut(152,102, 'Now is the time for all good men to come to the aid of their country');
  end;
end;


"Thor Stenbæk" wrote:

> Does anyone know how to draw a string with two colors.
> One color as fill and the other as the outline?
> Is there a function for that in the Windows API or do I have to convert
> my String to a PolyPolygon.
>
> Of so, how can I do that?