알짜게시판

델파이에서 트레이 아이콘이 흐릿하게 보이는 버그(?) 임시 수정

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;