paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-13 12:41:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: comments

Browse Source 
git-svn-id: trunk@40236 -
This commit is contained in:
mattias 2013-02-10 10:41:03 +00:00
parent 1070c2309f
commit f48c70a01c
2 changed files with 34 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/ide/languages/codyunitdepwnd.ru.po
View File

@ -17,3 +17,4 @@ msgstr "Закрыть"
#: codyunitdepwnd.rsselectaunit
msgid "Select an unit"
msgstr "Выберите модуль"

19
components/lazutils/ttfile.pas
View File

@ -202,7 +202,6 @@ const
* Description : Init the file component
*
******************************************************************)
function TTFile_Init : TError;
begin
TTFile_Init := Success;
@ -215,7 +214,6 @@ const
* Description : Finalize the file component
*
******************************************************************)
procedure TTFile_Done;
begin
//nothing
@ -235,7 +233,6 @@ const
* Output : True on sucess.
*
******************************************************************)
function TT_Open_Stream( name : String;
var stream : TT_Stream ) : TError;
var
@ -299,7 +296,6 @@ const
* Output : True ( always )
*
******************************************************************)
procedure TT_Close_Stream( var stream : TT_Stream );
begin
if stream.z = nil then exit;
@ -321,7 +317,6 @@ const
* Output : True on success. False on failure
*
******************************************************************)
function TT_Use_Stream( org_stream : TT_Stream;
out ftstream: TFreeTypeStream) : TError;
begin
@ -351,10 +346,9 @@ const
* Output : True on success. False on failure
*
******************************************************************)
procedure TT_Flush_Stream( stream : TT_Stream );
begin
if stream.z <> nil then
if stream.z = nil then exit;
TFreeTypeStream(stream.z).Deactivate;
end;
@ -369,7 +363,6 @@ const
* Output : Nothing.
*
******************************************************************)
procedure TT_Done_Stream( stream : TT_Stream );
begin
if stream.z = nil then exit;
@ -400,7 +393,6 @@ const
* them.
*
******************************************************************)
function TFreeTypeStream.AccessFrame( aSize : Int ) : TError;
begin
result := Failure;
@ -461,7 +453,6 @@ const
* truncate it..
*
******************************************************************)
function TFreeTypeStream.CheckAndAccessFrame( aSize : Int ) : TError;
var
readBytes : Longint;
@ -482,7 +473,6 @@ const
* Output : True on success. False on failure
*
******************************************************************)
function TFreeTypeStream.ForgetFrame : TError;
begin
result := Failure;
@ -513,7 +503,6 @@ const
* could easily page fault using this call).
*
******************************************************************)
function TFreeTypeStream.GET_Byte : Byte;
begin
GET_Byte := FCurrentFrame^[FFrameCursor];
@ -536,7 +525,6 @@ const
* could easily page fault using this call).
*
******************************************************************)
function TFreeTypeStream.GET_Char : ShortInt;
begin
GET_Char := ShortInt( FCurrentFrame^[FFrameCursor] );
@ -559,7 +547,6 @@ const
* could easily page fault using this call).
*
******************************************************************)
function TFreeTypeStream.GET_Short : Short;
begin
GET_Short := (Short(FCurrentFrame^[ FFrameCursor ]) shl 8) or
@ -583,7 +570,6 @@ const
* could easily page fault using this call).
*
******************************************************************)
function TFreeTypeStream.GET_UShort : UShort;
begin
GET_UShort := (UShort(FCurrentFrame^[ FFrameCursor ]) shl 8) or
@ -607,7 +593,6 @@ const
* could easily page fault using this call).
*
******************************************************************)
function TFreeTypeStream.GET_Long : Long;
begin
GET_Long := (Long(FCurrentFrame^[ FFrameCursor ]) shl 24) or
@ -633,7 +618,6 @@ const
* could easily page fault using this call).
*
******************************************************************)
function TFreeTypeStream.GET_ULong : ULong;
begin
GET_ULong := (ULong(FCurrentFrame^[ FFrameCursor ]) shl 24) or
@ -659,7 +643,6 @@ const
* could easily page fault using this call).
*
******************************************************************)
function TFreeTypeStream.GET_Tag4 : ULong;
var
C : array[0..3] of Byte;