Changeset 180 for oup

Timestamp:

May 17, 2007, 5:08:29 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Helper/ValueEdit.pas (modified) (4 diffs)
• Tools/RawEdit.pas (modified) (1 diff)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/Helper/ValueEdit.pas

@@ -67 +67 @@
   edit_new.EditType := etString;
   edit_new.Text := '';
-  edit_new.LimitCheck := False;
   edit_new.MaxLength := 0;
   edit_new.Max := 0;
@@ -111 +110 @@
     end;
   end;
+  edit_new.Text := current;
   edit_new.SetFocus;
   edit_new.SelectAll;
@@ -136 +136 @@
 procedure TForm_ValueEdit.FormCreate(Sender: TObject);
 begin
+  DecimalSeparator := '.';
   edit_new := TCrossEdit.Create(Self);
   with edit_new do
@@ -159 +160 @@
     NoFocusAlignment := taLeftJustify;
     Precision := 15;
-    Decimals := 4;
+    Decimals := 14;
     FocusWidthInc := 0;
     EditType := etHex;

oup/current/Tools/RawEdit.pas

@@ -540 +540 @@
     if fs.Size <> hex.DataSize then
     begin
-      if (not (CR_ResizeRaw in ConManager.Connection[ConnectionID].ChangeRights)) and (not (CR_AppendRaw in ConManager.Connection[ConnectionID].ChangeRights)) then
+      if
+        (not (CR_ResizeRaw in ConManager.Connection[ConnectionID].ChangeRights))
+        and (not (CR_AppendRaw in ConManager.Connection[ConnectionID].ChangeRights))
+        then
       begin
         ShowMessage('Can''t import ' + ExtractFilename(importd.FileName) +