Changeset 244

Timestamp:

Aug 17, 2007, 11:09:51 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• FileClasses/_Extensions.pas (modified) (3 diffs)
• Global/OniImgClass.pas (modified) (2 diffs)
• Tools/MetaEditor.dfm (modified) (1 diff)
• Tools/MetaEditor.pas (modified) (2 diffs)
• Tools/Preview.dfm (modified) (1 diff)
• Tools/Preview.pas (modified) (1 diff)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/FileClasses/_Extensions.pas

@@ -26 +26 @@
       function GetChild(ID: Integer): TTreeElement; override;
       function GetCaption: String; override;
+      function GetType: String; override;
     private
       FExtensions: array of TExtension;
@@ -103 +104 @@
 function TExtensions.GetCaption: String;
 begin
-  Result := '';
+  Result := 'Extensions';
 end;
 
@@ -157 +158 @@
 end;
 
+function TExtensions.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtensions.AddExt(Ext: String);
 var

oup/current/Global/OniImgClass.pas

@@ -414 +414 @@
     images[i] := TOniImage.Create;
     images[i].LoadFromTXMP(ConnectionID, link);
-    SetLength(FImages, 1);
-    NewImage(width, height, ifA1R5G5B5, FImages[0]);
-  end;
+  end;
+  SetLength(FImages, 1);
+  NewImage(width, height, images[0].Format {ifA1R5G5B5}, FImages[0]);
   for y := 0 to rows - 1 do
   begin
@@ -426 +426 @@
       for i := 0 to x do
         if i < x then
-          x_start := x_start + images[i].Image[0].Width;
+          x_start := x_start + images[i].Image[1].Width;
       for i := 0 to y do
         if i < y then
-          y_start := y_start + images[i].Image[0].Height;
-      CopyRect(images[imgid].Image[0], 0, 0, images[imgid].Image[0].Width,
-          images[imgid].Image[0].Height, FImages[0], x_start, y_start);
+          y_start := y_start + images[i].Image[1].Height; 
+      CopyRect(images[imgid].Image[1], 0, 0, images[imgid].Image[1].Width,
+          images[imgid].Image[1].Height, FImages[0], x_start, y_start);
     end;
   end;

oup/current/Tools/MetaEditor.dfm

@@ -85 +85 @@
       object tab_hex: TTabSheet
         Caption = 'Binary Edit'
-        ExplicitLeft = 0
-        ExplicitTop = 0
-        ExplicitWidth = 0
-        ExplicitHeight = 0
         object splitter_hex_1: TSplitter
           Left = 0

oup/current/Tools/MetaEditor.pas

@@ -101 +101 @@
   data: TNodeData;
   node: PVirtualNode;
+  basenode: PVirtualNode;
 begin
   if FConnectionID <> TreeElem.ConnectionID then
@@ -107 +108 @@
   VST.Clear;
   VST.BeginUpdate;
+  data.Field := root;
+  basenode := AddVSTEntry(VST, nil, data);
   for i := 0 to root.ChildCount - 1 do
   begin
     data.Field := root.Child[i];
-    node := AddVSTEntry(VST, nil, data);
+    node := AddVSTEntry(VST, basenode, data);
     if data.Field.ChildCount > 0 then
       VST.HasChildren[node] := True;

oup/current/Tools/Preview.dfm

@@ -47 +47 @@
         Visible = False
         OnResize = panel_buttonsResize
-        ExplicitWidth = 283
         object btn_dec: TButton
           Left = 0

oup/current/Tools/Preview.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons,
-  TypeDefs, OniImgClass;
+  TypeDefs, OniImgClass, VirtualTrees, ComCtrls;
 
 type