Class TWinResourceContainer

Unit

BGRAWinResource

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.