From 6de378ee40f1f2170ca7cba2163a79e320b8ffa8 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 2 Jun 2008 08:37:33 +0000
Subject: * Patch from Vladimir for application icon under Windows.

---
 src/corelib/gdi/gfx_gdi.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/corelib/gdi/gfx_gdi.pas')

diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas
index f55f9b4c..77b4379d 100644
--- a/src/corelib/gdi/gfx_gdi.pas
+++ b/src/corelib/gdi/gfx_gdi.pas
@@ -915,7 +915,8 @@ begin
     style         := CS_HREDRAW or CS_VREDRAW or CS_OWNDC or CS_DBLCLKS;
     lpfnWndProc   := WndProc(@fpgWindowProc);
     hInstance     := MainInstance;
-    hIcon         := LoadIcon(0, IDI_APPLICATION);
+    // hIcon         := LoadIcon(0, IDI_APPLICATION);
+    hIcon         := LoadIcon(hInstance, 'MAINICON');
     hCursor       := LoadCursor(0, IDC_ARROW);
     hbrBackground := 0; //COLOR_WINDOW;
     lpszClassName := 'FPGWIN';
-- 
cgit v1.2.3-70-g09d2