Class TWinResourceContainer
Unit
Declaration
type TWinResourceContainer = class(TMultiFileContainer)
Description
Container for Windows resources.
Example of modifying an existing RES file:
uses BGRAClasses, BGRABitmapTypes, BGRAWinResource; var res: TMultiFileContainer; filestream: TStream; begin res := TWinResourceContainer.Create('container.res'); //load the content of an existing RES file res.Delete('MAINICON','ico'); //delete current MAINICON entry filestream := TFileStream.Create('someicon.ico',fmOpenRead); res.Add('MAINICON','ico', filestream); //replace it with another icon filestream := TFileStream.Create('somecursor.cur', fmOpenRead); res.Add('SOMECURSOR','cur', filestream); //add a cursor entry called SOMECURSOR res.SaveToFile('container.res'); res.Free; end.
Hierarchy
- TMultiFileContainer
- TWinResourceContainer
Overview
Fields
FHiddenEntries: TMultiFileEntryList; |
Methods
destructor Destroy; override; |
|
function IndexOf(AName: utf8string; AExtenstion: utf8string; ALanguageId: integer; ACaseSensitive: boolean = True): integer; overload; |
|
function IndexOf(AName: utf8string; AExtenstion: utf8string; ACaseSensitive: boolean = True): integer; override; |
|
function CreateEntry(AName: utf8string; AExtension: utf8string; AContent: TStream): TMultiFileEntry; override; |
|
function CreateEntry(AName: utf8string; AExtension: utf8string; AContent: TStream; ALanguageId: integer): TMultiFileEntry; overload; |
|
procedure Clear; override; |
|
procedure Delete(AIndex: integer); override; |
|
procedure LoadFromStream(AStream: TStream); override; |
|
procedure SaveToStream(ADestination: TStream); override; |
|
procedure ClearHiddenEntries; |
|
procedure Init; override; |
|
procedure RemoveHidden(AEntry: TCustomResourceEntry); |
Description
Fields
FHiddenEntries: TMultiFileEntryList; |
|
This item has no description. |
Methods
destructor Destroy; override; |
|
This item has no description. |
function IndexOf(AName: utf8string; AExtenstion: utf8string; ALanguageId: integer; ACaseSensitive: boolean = True): integer; overload; |
|
This item has no description. |
function IndexOf(AName: utf8string; AExtenstion: utf8string; ACaseSensitive: boolean = True): integer; override; |
|
This item has no description. |
function CreateEntry(AName: utf8string; AExtension: utf8string; AContent: TStream): TMultiFileEntry; override; |
|
This item has no description. |
function CreateEntry(AName: utf8string; AExtension: utf8string; AContent: TStream; ALanguageId: integer): TMultiFileEntry; overload; |
|
This item has no description. |
procedure Clear; override; |
|
This item has no description. |
procedure Delete(AIndex: integer); override; |
|
This item has no description. |
procedure LoadFromStream(AStream: TStream); override; |
|
This item has no description. |
procedure SaveToStream(ADestination: TStream); override; |
|
This item has no description. |
procedure ClearHiddenEntries; |
|
This item has no description. |
procedure Init; override; |
|
This item has no description. |
procedure RemoveHidden(AEntry: TCustomResourceEntry); |
|
This item has no description. |