+ loading of components from resources

git-svn-id: trunk@1249 -

rtl/inc/resh.inc

@@ -1,8 +1,32 @@
+  
 type
   TResourceHandle = Cardinal;
   HMODULE = Cardinal;
   HGLOBAL = Cardinal;
-      
+  MAKEINTRESOURCE = pchar;
+  
+{$ifndef MSWINDOWS }
+{ windows has this in the windows unit. It probably would better
+  fit into the classes/sysutils unit but because it is resource
+  related, I put it here (FK)
+}
+const
+  RT_CURSOR = MAKEINTRESOURCE(1);
+  RT_BITMAP = MAKEINTRESOURCE(2);
+  RT_ICON = MAKEINTRESOURCE(3);
+  RT_MENU = MAKEINTRESOURCE(4);
+  RT_DIALOG = MAKEINTRESOURCE(5);
+  RT_STRING = MAKEINTRESOURCE(6);
+  RT_FONTDIR = MAKEINTRESOURCE(7);
+  RT_FONT = MAKEINTRESOURCE(8);
+  RT_ACCELERATOR = MAKEINTRESOURCE(9);
+  RT_RCDATA = MAKEINTRESOURCE(10);
+  RT_MESSAGETABLE = MAKEINTRESOURCE(11);
+  RT_GROUP_CURSOR = MAKEINTRESOURCE(12);
+  RT_GROUP_ICON = MAKEINTRESOURCE(13);
+  RT_VERSION = MAKEINTRESOURCE(16);
+{$endif MSWINDOWS }
+    
 // Win32 API compatible Resource functions
 Function HINSTANCE : HMODULE;
 Function FindResource(ModuleHandle: HMODULE; ResourceName, ResourceType: PChar): TResourceHandle;