Changeset 118 for trunk/NoTerm.pas

Timestamp:

Feb 3, 2018, 3:29:17 PM (7 years ago)

Author:

chronos

Message:

• Modified: Set Bitmap size at once.

File:

• trunk/NoTerm.pas (modified) (3 diffs)

trunk/NoTerm.pas

@@ -147 +147 @@
         TInitModuleData(Data).Flags := aiThreaded;
         Shade := TBitmap.Create;
-        Shade.Width := 64;
-        Shade.Height := 64;
+        Shade.SetSize(64, 64);
         for x := 0 to 63 do
           for y := 0 to 63 do
@@ -156 +155 @@
               Shade.Canvas.Pixels[x, y] := $000000;
         State := TBitmap.Create;
-        State.Width := 192;
-        State.Height := 20;
+        State.SetSize(192, 20);
         State.Canvas.Brush.Style := bsClear;
         State.Canvas.Font.Assign(UniFont[ftSmall]);
@@ -166 +164 @@
       begin
         Shade.Free;
-        State.Free
+        State.Free;
       end;