Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.27 by yoffy, Sun Mar 7 12:58:05 2004 UTC revision 1.28 by yoffy, Mon Mar 8 08:53:40 2004 UTC
# Line 1247  begin Line 1247  begin
1247          end;          end;
1248  end;  end;
1249    
1250    {$R-}
1251  //リストカラムヘッダー  //リストカラムヘッダー
1252  function TSetting.GetBBSColumnWidth(index: Integer): Integer;  function TSetting.GetBBSColumnWidth(index: Integer): Integer;
1253  begin  begin
# Line 1262  function TSetting.GetBoardColumnWidth(in Line 1263  function TSetting.GetBoardColumnWidth(in
1263  begin  begin
1264          Result := IfThen(index in [0..Length(FBoardColumnWidth) - 1], FBoardColumnWidth[index], 0);          Result := IfThen(index in [0..Length(FBoardColumnWidth) - 1], FBoardColumnWidth[index], 0);
1265  end;  end;
1266    {$IFDEF DEBUG}
1267    {$R+}
1268    {$ENDIF}
1269    
1270  procedure TSetting.SetBBSColumnWidth(index: Integer; value: Integer);  procedure TSetting.SetBBSColumnWidth(index: Integer; value: Integer);
1271  begin  begin

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26