掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BitBtnのGryphにアイコンを描画 (ID:31860)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
BitBtn1.Glyph に直接描画しないで、一旦ビットマップに描画して それをBitBtn1.Glyphにロードするようにすればできるかなと var Bitmap : TBitmap; procedure TForm8.Button1Click(Sender: TObject); var HICO :HICON;//アイコンハンドル P :AnsiString; begin P:='C:\WINDOWS\explorer.exe'; HICO :=ExtractIcon(hInstance, PChar(P) ,0); if HICO <>0 then begin DrawIcon(Bitmap. Canvas.Handle, 2,2, HICO);//何も描画されない BitBtn1.Glyph.Assign(Bitmap); DestroyIcon(HICO); end; end; procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction); begin Bitmap.Free; end; procedure TForm8.FormCreate(Sender: TObject); begin Bitmap := TBitmap.Create; Bitmap.PixelFormat := pf32bit; Bitmap.SetSize(32,32); Bitmap.Canvas.Brush.Style := bsClear; Bitmap.Canvas.Brush.Color := clBtnFace; Bitmap.Canvas.FillRect(Rect(0,0,32,32)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.