お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"影付き文字"





■説明
 フォームに影付の文字を表示させるサンプルです。

 Form1 に Button1 を配置して、Button1 の OnClick イベントを以下
のようにして下さい。

■サンプルコード
//=====================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  Rect : TRect;  //文字描画領域
  Text : String; //表示文字列
  Flags: UINT;   //文字列表示位置
begin
  Flags := DT_SINGLELINE or DT_VCENTER or DT_CENTER; //文字位置
  Rect := ClientRect;
  Text := '文字に影!!';
  with Canvas do begin
    Brush.Style := bsClear;

    OffsetRect( Rect, 2, 2 );     //縦・横それぞれ2だけズラして、
    Font.Color := clBlack;        //黒色で文字の影を作ります。
    Font.Size  := 18;
    Font.Style := Font.Style + [ fsBold ];
    DrawText( Handle, PChar( Text ), -1, Rect, Flags );

    OffsetRect( Rect, -2, -2 );   //文字を描画する位置を元に戻し、
    Font.Color := clRed;          //赤色で文字を正規の位置に描画。
    DrawText( Handle, PChar( Text ), -1, Rect, Flags);
  end;
end;
//=====================================================================

                                     98/03/07(土) 18:04 Fermion(KHF03264)

Original document by Fermion         氏 ID:(KHF03264)


ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum