mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 04:23:39 +02:00
71 lines
2.5 KiB
ObjectPascal
71 lines
2.5 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
|
|
Author:
|
|
Joost van der Sluis
|
|
|
|
Abstract:
|
|
Change the resource type (e.g. .lfm) of forms.
|
|
Every unit can have one resource file. Default is .lfm.
|
|
This unit allows to define other formats, like .xib.
|
|
}
|
|
unit UnitResources;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LCLMemManager, Forms;
|
|
|
|
type
|
|
|
|
{ TUnitResourcefileFormat }
|
|
|
|
TUnitResourcefileFormat = class
|
|
public
|
|
class function FindResourceDirective(Source: TObject): boolean; virtual; abstract;
|
|
class function ResourceDirectiveFilename: string; virtual; abstract;
|
|
class function GetUnitResourceFilename(AUnitFilename: string; Loading: boolean): string; virtual; abstract;
|
|
class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); virtual; abstract;
|
|
class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); virtual; abstract;
|
|
class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; virtual; abstract;
|
|
class function CreateReader(s: TStream; var DestroyDriver: boolean): TReader; virtual; abstract;
|
|
class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; virtual; abstract;
|
|
class function QuickCheckResourceBuffer(PascalBuffer, LFMBuffer: TObject; // TCodeBuffer
|
|
out LFMType, LFMComponentName, LFMClassName: string;
|
|
out LCLVersion: string;
|
|
out MissingClasses: TStrings// e.g. MyFrame2:TMyFrame
|
|
): TModalResult; virtual; abstract;
|
|
end;
|
|
TUnitResourcefileFormatClass = class of TUnitResourcefileFormat;
|
|
TUnitResourcefileFormatArr = array of TUnitResourcefileFormatClass;
|
|
|
|
var
|
|
LFMUnitResourceFileFormat: TUnitResourcefileFormatClass = nil;// set by IDE
|
|
|
|
procedure RegisterUnitResourcefileFormat(AResourceFileFormat: TUnitResourcefileFormatClass);
|
|
function GetUnitResourcefileFormats: TUnitResourcefileFormatArr;
|
|
|
|
implementation
|
|
|
|
var
|
|
GUnitResourcefileFormats: TUnitResourcefileFormatArr;
|
|
|
|
procedure RegisterUnitResourcefileFormat(AResourceFileFormat: TUnitResourcefileFormatClass);
|
|
begin
|
|
SetLength(GUnitResourcefileFormats, length(GUnitResourcefileFormats)+1);
|
|
GUnitResourcefileFormats[high(GUnitResourcefileFormats)] := AResourceFileFormat;
|
|
end;
|
|
|
|
function GetUnitResourcefileFormats: TUnitResourcefileFormatArr;
|
|
begin
|
|
result := GUnitResourcefileFormats;
|
|
end;
|
|
|
|
end.
|
|
|