mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 17:00:49 +02:00
174de3eab1
svn+ssh://svn.freepascal.org/FPC/svn/fpc/branches/resources
........
r9694 | michael | 2008-01-09 21:31:18 +0100 (Wed, 09 Jan 2008) | 1 line
* Initial check-in
........
r9695 | michael | 2008-01-09 21:35:58 +0100 (Wed, 09 Jan 2008) | 1 line
* New version from Giulio Bernardi
........
r9697 | michael | 2008-01-09 21:41:54 +0100 (Wed, 09 Jan 2008) | 1 line
* Patch from Giulio Bernardi with resource support
........
r9698 | michael | 2008-01-09 21:46:33 +0100 (Wed, 09 Jan 2008) | 1 line
* Patch from Giulio Bernardi to add more resource testing
........
r9699 | michael | 2008-01-09 21:57:26 +0100 (Wed, 09 Jan 2008) | 1 line
* New tool from Giulio Bernardi
........
r9700 | michael | 2008-01-09 21:58:23 +0100 (Wed, 09 Jan 2008) | 1 line
* New tool from Giulio Bernardi
........
r9701 | michael | 2008-01-09 22:01:54 +0100 (Wed, 09 Jan 2008) | 1 line
* Added fcl-res
........
r9702 | michael | 2008-01-09 22:01:58 +0100 (Wed, 09 Jan 2008) | 1 line
* Added fcl-res
........
r9703 | michael | 2008-01-10 08:54:26 +0100 (Thu, 10 Jan 2008) | 1 line
* Fixed double code
........
r9704 | jonas | 2008-01-10 10:59:20 +0100 (Thu, 10 Jan 2008) | 2 lines
- removed duplicate code
........
r9705 | jonas | 2008-01-10 11:25:21 +0100 (Thu, 10 Jan 2008) | 2 lines
+ added missing fcl-res dependencies
........
r9706 | jonas | 2008-01-10 11:58:30 +0100 (Thu, 10 Jan 2008) | 2 lines
+ dependencies for fpintres and fpextres
........
r9707 | yury | 2008-01-10 12:47:51 +0100 (Thu, 10 Jan 2008) | 3 lines
* Fixed compilation of resource, which is included in a unit located in different folder than main source.
* .res files must be copied to units output folder, otherwise .res files will not be found when only compiled units path is available and compiler does not know anything about sources folder.
* Improved resource related error messages.
........
r9708 | michael | 2008-01-10 12:52:13 +0100 (Thu, 10 Jan 2008) | 1 line
* Removed double source after end.
........
r9709 | michael | 2008-01-10 12:52:48 +0100 (Thu, 10 Jan 2008) | 1 line
* No longer needed
........
r9710 | tom_at_work | 2008-01-10 22:09:08 +0100 (Thu, 10 Jan 2008) | 1 line
* properly align FPC_RESLOCATION so that linking does not fail on some architectures (e.g. ppc64)
........
r9711 | tom_at_work | 2008-01-10 23:53:12 +0100 (Thu, 10 Jan 2008) | 1 line
* fix splitting of 64 bit load/stores from/to unaligned memory locations into multiple load/stores, which in some cases generated wrong code
........
r9712 | michael | 2008-01-11 11:00:08 +0100 (Fri, 11 Jan 2008) | 1 line
* Fixed bug in BSS section on 64-bit platforms
........
r9720 | giulio | 2008-01-12 10:02:04 +0100 (Sat, 12 Jan 2008) | 1 line
Updated fcl-res documentation: occurrences of reslib changed to fcl-res.
........
r9740 | giulio | 2008-01-13 19:36:44 +0100 (Sun, 13 Jan 2008) | 3 lines
- Don't try to compile resources on systems with a non windows-like resource support.
- Don't add the .or file to the list of object files if resource compiling failed.
........
r10201 | giulio | 2008-02-04 11:35:44 +0100 (Mon, 04 Feb 2008) | 5 lines
* resource compiling supported on OS/2 via wrc
* CompileResourceFiles and CollectResourceFiles don't do target-specific checks anymore
* refactored a bit
........
r10389 | giulio | 2008-02-25 21:32:52 +0100 (Mon, 25 Feb 2008) | 2 lines
Deleted test file which was committed by mistake
........
r10472 | giulio | 2008-03-10 12:22:18 +0100 (Mon, 10 Mar 2008) | 2 lines
changed define FPC_HAS_RESOURCES to FPC_HAS_WINLIKERESOURCES
........
git-svn-id: trunk@10481 -
90 lines
4.7 KiB
PHP
90 lines
4.7 KiB
PHP
|
|
type
|
|
//Obsolete types, kept for backwards compatibility
|
|
TResourceHandle = Cardinal;
|
|
HMODULE = Cardinal;
|
|
HGLOBAL = Cardinal;
|
|
//New types
|
|
TFPResourceHandle = PtrUInt;
|
|
TFPResourceHMODULE = PtrUInt;
|
|
TFPResourceHGLOBAL = PtrUInt;
|
|
{$ifdef UNICODE}
|
|
{roozbeh : maybe it shoud be moved after ifndef mswindows,as there is one declared in wince,base.inc}
|
|
MAKEINTRESOURCE = pwidechar;
|
|
{$else}
|
|
MAKEINTRESOURCE = pchar;
|
|
{$endif}
|
|
|
|
{$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(14);
|
|
RT_VERSION = MAKEINTRESOURCE(16);
|
|
RT_ANICURSOR = MAKEINTRESOURCE(21);
|
|
RT_ANIICON = MAKEINTRESOURCE(22);
|
|
RT_HTML = MAKEINTRESOURCE(23);
|
|
RT_MANIFEST = MAKEINTRESOURCE(24);
|
|
|
|
{$endif MSWINDOWS }
|
|
|
|
// Win32 API compatible Resource callbacks
|
|
type
|
|
EnumResTypeProc = function(ModuleHandle : TFPResourceHMODULE; ResourceType : PChar; lParam : PtrInt) : LongBool; stdcall;
|
|
EnumResNameProc = function(ModuleHandle : TFPResourceHMODULE; ResourceType, ResourceName : PChar; lParam : PtrInt) : LongBool; stdcall;
|
|
EnumResLangProc = function(ModuleHandle : TFPResourceHMODULE; ResourceType, ResourceName : PChar; IDLanguage : word; lParam : PtrInt) : LongBool; stdcall;
|
|
|
|
// Useful functions (macros in win32 headers)
|
|
function Is_IntResource(aStr : pchar) : boolean; {$ifdef SYSTEMINLINE}inline;{$endif}
|
|
function MakeLangID(primary,sub : word) : word; {$ifdef SYSTEMINLINE}inline;{$endif}
|
|
|
|
// Win32 API compatible Resource functions
|
|
Function HINSTANCE : TFPResourceHMODULE;
|
|
Function EnumResourceTypes(ModuleHandle : TFPResourceHMODULE; EnumFunc : EnumResTypeProc; lParam : PtrInt) : LongBool;
|
|
Function EnumResourceNames(ModuleHandle : TFPResourceHMODULE; ResourceType : PChar; EnumFunc : EnumResNameProc; lParam : PtrInt) : LongBool;
|
|
Function EnumResourceLanguages(ModuleHandle : TFPResourceHMODULE; ResourceType, ResourceName : PChar; EnumFunc : EnumResLangProc; lParam : PtrInt) : LongBool;
|
|
Function FindResource(ModuleHandle: TFPResourceHMODULE; ResourceName, ResourceType: PChar): TFPResourceHandle;
|
|
Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; ResourceType, ResourceName: PChar; Language : word): TFPResourceHandle;
|
|
Function LoadResource(ModuleHandle: TFPResourceHMODULE; ResHandle: TFPResourceHandle): TFPResourceHGLOBAL;
|
|
Function SizeofResource(ModuleHandle: TFPResourceHMODULE; ResHandle: TFPResourceHandle): LongWord;
|
|
Function LockResource(ResData: TFPResourceHGLOBAL): Pointer;
|
|
Function UnlockResource(ResData: TFPResourceHGLOBAL): LongBool;
|
|
Function FreeResource(ResData: TFPResourceHGLOBAL): LongBool;
|
|
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
|
|
Function FindResource(ModuleHandle: TFPResourceHMODULE; ResourceName, ResourceType: AnsiString): TFPResourceHandle;
|
|
Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle;
|
|
{$endif}
|
|
|
|
type
|
|
TResourceManager = record
|
|
HINSTANCEFunc : function : TFPResourceHMODULE;
|
|
EnumResourceTypesFunc : function (ModuleHandle : TFPResourceHMODULE; EnumFunc : EnumResTypeProc; lParam : PtrInt) : LongBool;
|
|
EnumResourceNamesFunc : function (ModuleHandle : TFPResourceHMODULE; ResourceType : PChar; EnumFunc : EnumResNameProc; lParam : PtrInt) : LongBool;
|
|
EnumResourceLanguagesFunc : function (ModuleHandle : TFPResourceHMODULE; ResourceType,ResourceName : PChar; EnumFunc : EnumResLangProc; lParam : PtrInt) : LongBool;
|
|
FindResourceFunc : function (ModuleHandle: TFPResourceHMODULE; ResourceName, ResourceType: PChar): TFPResourceHandle;
|
|
FindResourceExFunc : function (ModuleHandle: TFPResourceHMODULE; ResourceType, ResourceName: PChar; Language : word): TFPResourceHandle;
|
|
LoadResourceFunc : function (ModuleHandle: TFPResourceHMODULE; ResHandle: TFPResourceHandle): TFPResourceHGLOBAL;
|
|
SizeofResourceFunc : function (ModuleHandle: TFPResourceHMODULE; ResHandle: TFPResourceHandle): LongWord;
|
|
LockResourceFunc : function (ResData: TFPResourceHGLOBAL): Pointer;
|
|
UnlockResourceFunc : function (ResData: TFPResourceHGLOBAL): LongBool;
|
|
FreeResourceFunc : function (ResData: TFPResourceHGLOBAL): LongBool;
|
|
end;
|
|
|
|
procedure GetResourceManager (var Manager : TResourceManager);
|
|
procedure SetResourceManager (const New : TResourceManager);
|
|
|