Class TRxProjectResExpert (unit RxResExp)

Inherits from

TIExpert

Constructors


constructor Create;

TRxProjectResExpert


Functions

procedure BeginUpdate;


procedure CheckRename(ResFile: TIResourceFile; ResType, NewName: PChar);


procedure CreateEntry(ResFile: TIResourceFile; ResType, ResName: PChar; ADataSize: Integer; AData: Pointer; SetToEntry: Boolean);

delete children

function DeleteEntry(ResFile: TIResourceFile; Entry: TResourceEntry): Boolean;


destructor Destroy;


procedure EditBinaryRes(Entry: TResourceEntry; Stream: TMemoryStream);


procedure EditBitmapRes(Entry: TResourceEntry; Bitmap: TBitmap);


procedure EditCursorIconRes(Entry: TResourceEntry; IsIcon: Boolean; Stream: TStream);


procedure EndUpdate;


procedure Execute;


function GetIDString: string;


function GetName: string;


function GetResFile: TIResourceFile;


function GetState: TExpertState;


function GetStyle: TExpertStyle;


procedure MarkModified;


procedure NewBinaryRes(ResFile: TIResourceFile; ResName, ResType: PChar; Stream: TMemoryStream);


procedure NewBitmapRes(ResFile: TIResourceFile; ResName: PChar; Bitmap: TBitmap);

'MAINICON'

procedure NewCursorIconRes(ResFile: TIResourceFile; ResName: PChar; IsIcon: Boolean; Stream: TStream);


function UniqueName(ResFile: TIResourceFile; ResType: PChar; var Index: Integer): string;


procedure ClearProjectResInfo;

Collapsed Folder

procedure CloseProject;


procedure FindChildren(ResFile: TIResourceFile; Entry: TResourceEntry);


procedure LoadDesktop(const FileName: string);


procedure LoadProjectResInfo;


procedure OpenProject(const FileName: string);

restore selection

procedure ProjectResourcesClick(Sender: TIMenuItemIntf);


procedure SaveDesktop(const FileName: string);


procedure UpdateProjectResInfo;


Properties

Events

Variables

AddInNotifier : TAddInNotifier;


FLockCount : Integer;


FResFileName : string;


FResourceList : TStringList;


FSelection : TResSelection;


ProjectModule : TIModuleInterface;


ProjectNotifier : TProjectNotifier;


ProjectResourcesItem : TIMenuItemIntf;



Constructors


constructor Create;

TRxProjectResExpert


Functions


procedure BeginUpdate;


procedure CheckRename(ResFile: TIResourceFile; ResType, NewName: PChar);


procedure CreateEntry(ResFile: TIResourceFile; ResType, ResName: PChar; ADataSize: Integer; AData: Pointer; SetToEntry: Boolean);

delete children


function DeleteEntry(ResFile: TIResourceFile; Entry: TResourceEntry): Boolean;


destructor Destroy;


procedure EditBinaryRes(Entry: TResourceEntry; Stream: TMemoryStream);


procedure EditBitmapRes(Entry: TResourceEntry; Bitmap: TBitmap);


procedure EditCursorIconRes(Entry: TResourceEntry; IsIcon: Boolean; Stream: TStream);


procedure EndUpdate;


procedure Execute;


function GetIDString: string;


function GetName: string;


function GetResFile: TIResourceFile;


function GetState: TExpertState;


function GetStyle: TExpertStyle;


procedure MarkModified;


procedure NewBinaryRes(ResFile: TIResourceFile; ResName, ResType: PChar; Stream: TMemoryStream);


procedure NewBitmapRes(ResFile: TIResourceFile; ResName: PChar; Bitmap: TBitmap);

'MAINICON'


procedure NewCursorIconRes(ResFile: TIResourceFile; ResName: PChar; IsIcon: Boolean; Stream: TStream);


function UniqueName(ResFile: TIResourceFile; ResType: PChar; var Index: Integer): string;


procedure ClearProjectResInfo;

Collapsed Folder


procedure CloseProject;


procedure FindChildren(ResFile: TIResourceFile; Entry: TResourceEntry);


procedure LoadDesktop(const FileName: string);


procedure LoadProjectResInfo;


procedure OpenProject(const FileName: string);

restore selection


procedure ProjectResourcesClick(Sender: TIMenuItemIntf);


procedure SaveDesktop(const FileName: string);


procedure UpdateProjectResInfo;


Properties


Events


Variables


AddInNotifier : TAddInNotifier;


FLockCount : Integer;


FResFileName : string;


FResourceList : TStringList;


FSelection : TResSelection;


ProjectModule : TIModuleInterface;


ProjectNotifier : TProjectNotifier;


ProjectResourcesItem : TIMenuItemIntf;