[Delphi] TrayIcon 이 흐릿하게 보이는 버그? 수정
- 12-12
- 12,787 회
- 0 건
델파이에서 트레이 아이콘이 흐릿하게 보이는 버그(?) 임시 수정
[code]
type
TTrayIconHelper = class helper for TTrayIcon
procedure Repaint;
end;
procedure TTrayIconHelper.Repaint;
var
Size: Integer;
begin
Size := GetSystemMetrics(SM_CXSMICON);
Self.Icon.Handle := LoadImage(hInstance, 'MAINICON', IMAGE_ICON, Size, Size, LR_DEFAULTCOLOR or LR_SHARED);
Self.SetDefaultIcon;
end;
[/code]