pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Changes for Lazarus-trunk

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2688 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-02-17 11:44:38 +00:00
parent 1f0f7c35df
commit 9c62e32f73
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/iosdesigner/iosxibresource.pas
View File

@ -18,7 +18,7 @@ type
public
class function FindResourceDirective(Source: TObject): boolean; override;
class function ResourceDirectiveFilename: string; override;
class function GetUnitResourceFilename(AUnitFilenae: string): string; override;
class function GetUnitResourceFilename(AUnitFilename: string; Loading: boolean): string; override;
class procedure TextStreamToBinStream(ATxtStream, ABinStream: TExtMemoryStream); override;
class procedure BinStreamToTextStream(ABinStream, ATextStream: TExtMemoryStream); override;
class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override;
@ -55,9 +55,9 @@ begin
end;
class function TXIBResourcefileFormat.GetUnitResourceFilename(
AUnitFilenae: string): string;
AUnitFilename: string; Loading: boolean): string;
begin
result := ChangeFileExt(AUnitFilenae,'.xib');
result := ChangeFileExt(AUnitFilename,'.xib');
end;
class procedure TXIBResourcefileFormat.TextStreamToBinStream(ATxtStream,