Changeset 360

Timestamp:

May 7, 2012, 10:32:41 AM (12 years ago)

Author:

chronos

Message:

 

Files:

• Common/Common.pas (modified) (1 diff)
• Common/UCommon.pas (modified) (2 diffs)
• Common/URectangle.pas (deleted)
• CoolAudio/Systems/UAudioSystem.pas (modified) (1 diff)
• CoolStreaming/UStreamHelper.pas (modified) (3 diffs)
• Generics/TemplateGenerics/Generic/GenericRectangle.inc (modified) (2 diffs)

Common/Common.pas

@@ -9 +9 @@
 uses
   StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading, 
-  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,
+  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 
   LazarusPackageIntf;
 

Common/UCommon.pas

@@ -49 +49 @@
 function SplitString(var Text: string; Count: Word): string;
 function GetBit(Variable: QWord; Index: Byte): Boolean;
-procedure SetBit(var Variable: QWord; Index: Byte; State: Boolean);
-procedure SetBit(var Variable: Cardinal; Index: Byte; State: Boolean);
-procedure SetBit(var Variable: Word; Index: Byte; State: Boolean);
+procedure SetBit(var Variable: QWord; Index: Byte; State: Boolean); overload;
+procedure SetBit(var Variable: Cardinal; Index: Byte; State: Boolean); overload;
+procedure SetBit(var Variable: Word; Index: Byte; State: Boolean); overload;
 function AddLeadingZeroes(const aNumber, Length : integer) : string;
 function LastPos(const SubStr: String; const S: String): Integer;
@@ -413 +413 @@
 procedure OpenFileInShell(FileName: string);
 begin
-  ExecuteProgram('cmd.exe /c start ' + FileName);
+  ExecuteProgram('cmd.exe /c start "' + FileName + '"');
 end;
 

CoolAudio/Systems/UAudioSystem.pas

@@ -322 +322 @@
   NewItem.Name := Name;
   NewItem.SystemClass := SystemClass;
+  NewItem.Supported := True;
   Systems.Add(NewItem);
 end;

CoolStreaming/UStreamHelper.pas

@@ -6 +6 @@
 
 uses
-  Classes, DateUtils, syncobjs;
+  Classes, DateUtils, syncobjs, SysUtils;
 
 type
@@ -49 +49 @@
     procedure ReadStream(AStream: TStream; Count: Integer);
     procedure ReadStreamPart(AStream: TStream; Count: Integer);
+    function EqualTo(Source: TStream): Boolean;
     function Sum: Byte;
     procedure FillByte(Data: Byte; Count: Integer);
@@ -159 +160 @@
 end;
 
+function TStreamHelper.EqualTo(Source: TStream): Boolean;
+const
+  BlockSize = 4096;
+var
+  Buffer1: array[0..BlockSize - 1] of Byte;
+  Buffer2: array[0..BlockSize - 1] of Byte;
+  BufferLength: Integer;
+  OldPos1, OldPos2: Integer;
+begin
+  OldPos1 := Source.Position;
+  Source.Position := 0;
+  OldPos2 := Position;
+  Position := 0;
+  Result := True;
+  if Source.Size = Size then begin
+    while Source.Position < Source.Size do begin
+      BufferLength := Source.Read(Buffer1, BlockSize);
+      Read(Buffer2, BlockSize);
+      if not CompareMem(@Buffer1, @Buffer2, BufferLength) then begin
+        Result := False;
+        Break;
+      end;
+    end;
+  end else Result := False;
+  Source.Position := OldPos1;
+  Position := OldPos2;
+end;
+
 procedure TStreamHelper.WriteStreamPart(AStream: TStream; Count: Integer);
 var

Generics/TemplateGenerics/Generic/GenericRectangle.inc

@@ -39 +39 @@
   procedure UnionWith(Rect: TGRectangle);
 
+  procedure SetRect(Left, Top, Width, Height: TGRectangleDimension);
+  procedure SetBounds(Left, Top, Right, Bottom: TGRectangleDimension);
+
   property Left: TGRectangleDimension read FLeft write SetLeft;
   property Top: TGRectangleDimension read FTop write SetTop;
@@ -246 +249 @@
 end;
 
+procedure TGRectangle.SetRect(Left, Top, Width, Height: TGRectangleDimension);
+begin
+  Self.Left := Left;
+  Self.Top := Top;
+  Self.Width := Width;
+  Self.Height := Height;
+end;
+
+procedure TGRectangle.SetBounds(Left, Top, Right, Bottom: TGRectangleDimension);
+begin
+  Self.Left := Left;
+  Self.Top := Top;
+  Self.Right := Right;
+  Self.Bottom := Bottom;
+end;
+
 function TGRectangle.GetEmpty: Boolean;
 begin