Changeset 70 for oup

Timestamp:

Jan 9, 2007, 10:16:16 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Tools/RawEdit.dfm (modified) (1 diff)
• Tools/RawEdit.pas (modified) (2 diffs)
• Tools/Template.pas (modified) (1 diff)
• exe/OniUnPacker.exe (modified) ( previous)

oup/current/Tools/RawEdit.dfm

@@ -138 +138 @@
       Height = 114
       Align = alClient
-      ColCount = 1
+      ColCount = 2
       DefaultColWidth = 80
       DefaultRowHeight = 18
       FixedCols = 0
       RowCount = 8
-      FixedRows = 0
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText

oup/current/Tools/RawEdit.pas

@@ -385 +385 @@
   fileid     := -1;
 
+{
   value_viewer.ColCount := 2;
   value_viewer.RowCount := 8;
   value_viewer.FixedRows := 1;
-
+}
   value_viewer.Cells[0, 0] := 'Type';
   value_viewer.Cells[1, 0] := 'Value';
@@ -457 +458 @@
 procedure TForm_RawEdit.panel_contentResize(Sender: TObject);
 begin
-//  value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 28;
+  if fileid >= 0 then
+    value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 50;
 end;
 

oup/current/Tools/Template.pas

@@ -368 +368 @@
 procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
 begin
-  edit_filtername.SetFocus;
+  if edit_filtername.CanFocus then
+    edit_filtername.SetFocus
+  else
+    if content.CanFocus then
+      content.SetFocus;
 end;