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

Timestamp:

Apr 9, 2015, 9:58:36 PM (10 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/bgradnetdeserial.pas (modified) (3 diffs)

GraphicTest/Packages/bgrabitmap/bgradnetdeserial.pas

@@ -155 +155 @@
     procedure LoadFromStream(Stream: TStream);
     procedure LoadFromFile(filename: string);
+    procedure LoadFromFileUTF8(filenameUTF8: string);
     function ToString: string; override;
     constructor Create;
@@ -182 +183 @@
 
 implementation
+
+uses lazutf8classes;
 
 const
@@ -859 +862 @@
 begin
   stream := TFileStream.Create(filename, fmOpenRead);
+  try
+    LoadFromStream(stream);
+  finally
+    stream.Free;
+  end;
+end;
+
+procedure TDotNetDeserialization.LoadFromFileUTF8(filenameUTF8: string);
+var
+  stream: TFileStreamUTF8;
+begin
+  stream := TFileStreamUTF8.Create(filenameUTF8, fmOpenRead);
   try
     LoadFromStream(stream);