Changeset 472 for GraphicTest/Packages/bgrabitmap/bgracompressablebitmap.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Use csOpaque control style also to Image, PaintBox and OpenGLControl.
• Modified: Change size of test frame with SpinEdits as delayed using timer.
• Updated: BRGABitmap package to version 8.1.

File:

• GraphicTest/Packages/bgrabitmap/bgracompressablebitmap.pas (modified) (6 diffs)

GraphicTest/Packages/bgrabitmap/bgracompressablebitmap.pas

@@ -44 +44 @@
      procedure Decompress;
      procedure FreeData;
+     procedure Init;
    public
      CompressionLevel: Tcompressionlevel;
@@ -62 +63 @@
      property Width : Integer read FWidth;
      property Height: Integer read FHeight;
-     property Caption : string read FCaption;
+     property Caption : string read FCaption write FCaption;
 
    end;
@@ -77 +78 @@
 constructor TBGRACompressableBitmap.Create;
 begin
-  FUncompressedData := nil;
-  FCompressedDataArray := nil;
-  FWidth := 0;
-  FHeight := 0;
-  FCaption := '';
-  FCompressionProgress := 0;
-  CompressionLevel := clfastest;
+  Init;
 end;
 
 constructor TBGRACompressableBitmap.Create(Source: TBGRABitmap);
 begin
-  FUncompressedData := nil;
-  FCompressedDataArray := nil;
-  FWidth := 0;
-  FHeight := 0;
-  FCaption := '';
-  FCompressionProgress := 0;
+  Init;
   Assign(Source);
 end;
@@ -219 +209 @@
   setlength(FCaption,WinReadLongint(AStream));
   AStream.Read(FCaption[1],length(FCaption));
-  if (FWidth=0) or (FHeight = 0) then exit;
+  if (FWidth=0) or (FHeight = 0) then
+  begin
+    FUncompressedData := TMemoryStream.Create;
+    exit;
+  end;
 
   FBounds.Left := WinReadLongint(AStream);
@@ -234 +228 @@
     FCompressedDataArray[i].CopyFrom(AStream,size);
   end;
+
+  if FCompressedDataArray = nil then
+    FUncompressedData := TMemoryStream.Create;
 end;
 
@@ -270 +267 @@
 end;
 
+procedure TBGRACompressableBitmap.Init;
+begin
+  FUncompressedData := nil;
+  FCompressedDataArray := nil;
+  FWidth := 0;
+  FHeight := 0;
+  FCaption := '';
+  FCompressionProgress := 0;
+  CompressionLevel := clfastest;
+end;
+
 { Copy a bitmap into this object. As it is copied, you need not
   keep a copy of the source }