Changeset 70


Ignore:
Timestamp:
Jan 9, 2007, 10:16:16 PM (15 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Tools/RawEdit.dfm

    r68 r70  
    138138      Height = 114
    139139      Align = alClient
    140       ColCount = 1
     140      ColCount = 2
    141141      DefaultColWidth = 80
    142142      DefaultRowHeight = 18
    143143      FixedCols = 0
    144144      RowCount = 8
    145       FixedRows = 0
    146145      Font.Charset = DEFAULT_CHARSET
    147146      Font.Color = clWindowText
  • oup/current/Tools/RawEdit.pas

    r69 r70  
    385385  fileid     := -1;
    386386
     387{
    387388  value_viewer.ColCount := 2;
    388389  value_viewer.RowCount := 8;
    389390  value_viewer.FixedRows := 1;
    390 
     391}
    391392  value_viewer.Cells[0, 0] := 'Type';
    392393  value_viewer.Cells[1, 0] := 'Value';
     
    457458procedure TForm_RawEdit.panel_contentResize(Sender: TObject);
    458459begin
    459 //  value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 28;
     460  if fileid >= 0 then
     461    value_viewer.ColWidths[1] := value_viewer.Width - value_viewer.ColWidths[0] - 50;
    460462end;
    461463
  • oup/current/Tools/Template.pas

    r58 r70  
    368368procedure TForm_ToolTemplate.FormActivate(Sender: TObject);
    369369begin
    370   edit_filtername.SetFocus;
     370  if edit_filtername.CanFocus then
     371    edit_filtername.SetFocus
     372  else
     373    if content.CanFocus then
     374      content.SetFocus;
    371375end;
    372376
Note: See TracChangeset for help on using the changeset viewer.