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