paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 23:18:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: removed TLFMUnitResourcefileFormat.ResourceDirectiveFilename:

Browse Source 
git-svn-id: trunk@45645 -
This commit is contained in:
mattias 2014-06-24 16:45:06 +00:00
parent 41a0927e20
commit 5313aa4458
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/unitresources.pas
View File

@ -28,7 +28,6 @@ type
TUnitResourcefileFormat = class TUnitResourcefileFormat = class
public public
class function FindResourceDirective(Source: TObject): boolean; virtual; abstract; 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 function GetUnitResourceFilename(AUnitFilename: string; Loading: boolean): string; virtual; abstract;
class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); virtual; abstract; class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); virtual; abstract;
class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); virtual; abstract; class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); virtual; abstract;

9
ide/lfmunitresource.pas
View File

@ -34,7 +34,7 @@ uses
// packages // packages
LCLMemManager, LResources, Forms, CodeCache, CodeToolManager, LCLMemManager, LResources, Forms, CodeCache, CodeToolManager,
// IDEIntf // IDEIntf
UnitResources, LazFileCache, LazFileUtils, AvgLvlTree, UnitResources, SrcEditorIntf, LazFileCache, LazFileUtils, AvgLvlTree,
// IDE // IDE
CheckLFMDlg; CheckLFMDlg;
@ -45,7 +45,7 @@ type
TLFMUnitResourcefileFormat = class(TUnitResourcefileFormat) TLFMUnitResourcefileFormat = class(TUnitResourcefileFormat)
public public
class function FindResourceDirective(Source: TObject): boolean; override; class function FindResourceDirective(Source: TObject): boolean; override;
class function ResourceDirectiveFilename: string; override; class function ResourceDirectiveFilename: string;
class function GetUnitResourceFilename(AUnitFilename: string; {%H-}Loading: boolean): string; override; class function GetUnitResourceFilename(AUnitFilename: string; {%H-}Loading: boolean): string; override;
class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override; class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override;
class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override; class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override;
@ -143,7 +143,7 @@ var
begin begin
Result := ChangeFileExt(AUnitFilename,'.lfm'); Result := ChangeFileExt(AUnitFilename,'.lfm');
if not FileExistsCached(Result) if not FileExistsCached(Result)
// ToDo: search in source editor and (SourceEditorManagerIntf.SourceEditorIntfWithFilename(Result)=nil)
then begin then begin
DFMFilename:=ChangeFileExt(AUnitFilename,'.dfm'); DFMFilename:=ChangeFileExt(AUnitFilename,'.dfm');
if FileExistsCached(DFMFilename) then if FileExistsCached(DFMFilename) then
@ -179,7 +179,8 @@ class function TLFMUnitResourcefileFormat.QuickCheckResourceBuffer(PascalBuffer,
LFMBuffer: TObject; out LFMType, LFMComponentName, LFMClassName: string; out LFMBuffer: TObject; out LFMType, LFMComponentName, LFMClassName: string; out
LCLVersion: string; out MissingClasses: TStrings): TModalResult; LCLVersion: string; out MissingClasses: TStrings): TModalResult;
begin begin
Result := QuickCheckLFMBuffer(PascalBuffer as TCodeBuffer, LFMBuffer as TCodeBuffer, LFMType, LFMComponentName, LFMClassName, Result := QuickCheckLFMBuffer(PascalBuffer as TCodeBuffer,
LFMBuffer as TCodeBuffer, LFMType, LFMComponentName, LFMClassName,
LCLVersion, MissingClasses); LCLVersion, MissingClasses);
end; end;