掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TBitBtnのGlyphで指定した256色ビットマップが256色モードできちんと表示できません。 (ID：5982)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これでどうでしょうか。 var hpal:HPALETTE; bmpFile: TBitmap; //ファイル用 bmpInternal: TBitmap; //BitBtn.Glyph設定用 begin bmpFile := TBitmap.Create; bmpInternal := TBitmap.Create; hpal := CreateHalftonePalette(bmpInternal.Canvas.Handle); try bmpFile.LoadFromFile(ExtractFilePath(Application.ExeName) + 'test.bmp'); bmpInternal.Width := bmpFile.Width; bmpInternal.Height := bmpFile.Height; //以下の関数は記述通り2回ずつ呼び出して下さい SelectPalette(bmpInternal.Canvas.Handle, hpal, True); RealizePalette(bmpInternal.Canvas.Handle); SelectPalette(bmpInternal.Canvas.Handle, hpal, True); RealizePalette(bmpInternal.Canvas.Handle); bmpInternal.Canvas.Draw(0, 0, bmpFile); BitBtn1.Glyph := bmpInternal; finally bmpInternal.Free; bmpFile.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.