Changeset 180


Ignore:
Timestamp:
May 17, 2007, 5:08:29 PM (14 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Helper/ValueEdit.pas

    r111 r180  
    6767  edit_new.EditType := etString;
    6868  edit_new.Text := '';
    69   edit_new.LimitCheck := False;
    7069  edit_new.MaxLength := 0;
    7170  edit_new.Max := 0;
     
    111110    end;
    112111  end;
     112  edit_new.Text := current;
    113113  edit_new.SetFocus;
    114114  edit_new.SelectAll;
     
    136136procedure TForm_ValueEdit.FormCreate(Sender: TObject);
    137137begin
     138  DecimalSeparator := '.';
    138139  edit_new := TCrossEdit.Create(Self);
    139140  with edit_new do
     
    159160    NoFocusAlignment := taLeftJustify;
    160161    Precision := 15;
    161     Decimals := 4;
     162    Decimals := 14;
    162163    FocusWidthInc := 0;
    163164    EditType := etHex;
  • oup/current/Tools/RawEdit.pas

    r177 r180  
    540540    if fs.Size <> hex.DataSize then
    541541    begin
    542       if (not (CR_ResizeRaw in ConManager.Connection[ConnectionID].ChangeRights)) and (not (CR_AppendRaw in ConManager.Connection[ConnectionID].ChangeRights)) then
     542      if
     543        (not (CR_ResizeRaw in ConManager.Connection[ConnectionID].ChangeRights))
     544        and (not (CR_AppendRaw in ConManager.Connection[ConnectionID].ChangeRights))
     545        then
    543546      begin
    544547        ShowMessage('Can''t import ' + ExtractFilename(importd.FileName) +
Note: See TracChangeset for help on using the changeset viewer.