Changeset 18

Show
Ignore:
Timestamp:
04/06/05 08:47:38 (7 years ago)
Author:
DavidM
Message:

Beta 8

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/DManager.dsk

    r15 r18  
    88 
    99[Modules] 
    10 Module0=C:\proj\delphi\dproj\DManager.dpr 
    11 Count=1 
     10Module0=E:\proj\delphi\dproj\UMain.pas 
     11Module1=E:\proj\delphi\dproj\Projects.pas 
     12Module2=E:\proj\delphi\dproj\DManager.dpr 
     13Module3=E:\proj\delphi\dproj\MyUtils.pas 
     14Module4=E:\proj\delphi\dproj\Workspaces.pas 
     15Count=5 
    1216EditWindowCount=1 
    1317 
    14 [C:\proj\delphi\dproj\DManager.dpr] 
    15 ModuleType=SourceModule 
    16 FormState=0 
    17 FormOnTop=0 
    18  
    19 [C:\SVN\dmanager\trunk\ProjectGroup1.bpg] 
    20 FormState=0 
    21 FormOnTop=0 
    22  
    23 [C:\SVN\dmanager\trunk\DManager.dpr] 
     18[E:\proj\delphi\dproj\UMain.pas] 
     19ModuleType=SourceModule 
     20FormState=0 
     21FormOnTop=1 
     22 
     23[E:\proj\delphi\dproj\Projects.pas] 
     24ModuleType=SourceModule 
     25FormState=0 
     26FormOnTop=0 
     27 
     28[E:\proj\delphi\dproj\DManager.dpr] 
     29ModuleType=SourceModule 
     30FormState=0 
     31FormOnTop=0 
     32 
     33[E:\proj\delphi\dproj\MyUtils.pas] 
     34ModuleType=SourceModule 
     35FormState=0 
     36FormOnTop=0 
     37 
     38[E:\proj\delphi\dproj\Workspaces.pas] 
     39ModuleType=SourceModule 
     40FormState=0 
     41FormOnTop=0 
     42 
     43[C:\Program Files\Borland\Delphi5\Projects\ProjectGroup1.bpg] 
    2444FormState=0 
    2545FormOnTop=0 
    2646 
    2747[EditWindow0] 
    28 ViewCount=1 
    29 CurrentView=0 
     48ViewCount=5 
     49CurrentView=3 
    3050View0=0 
     51View1=1 
     52View2=2 
     53View3=3 
     54View4=4 
    3155MessageView=MessageView@EditWindow0 
    3256Create=1 
    …… 
    3862Height=482 
    3963MaxLeft=-4 
    40 MaxTop=100 
     64MaxTop=104 
    4165MaxWidth=1032 
    42 MaxHeight=619 
     66MaxHeight=608 
    4367ClientWidth=1024 
    44 ClientHeight=592 
     68ClientHeight=574 
    4569LeftPanelSize=0 
    4670RightPanelSize=0 
    …… 
    5074 
    5175[View0] 
    52 Module=C:\proj\delphi\dproj\DManager.dpr 
     76Module=E:\proj\delphi\dproj\DManager.dpr 
    5377CursorX=1 
    5478CursorY=1 
    5579TopLine=1 
     80LeftCol=1 
     81 
     82[View1] 
     83Module=E:\proj\delphi\dproj\Workspaces.pas 
     84CursorX=60 
     85CursorY=18 
     86TopLine=1 
     87LeftCol=1 
     88 
     89[View2] 
     90Module=E:\proj\delphi\dproj\Projects.pas 
     91CursorX=7 
     92CursorY=202 
     93TopLine=191 
     94LeftCol=1 
     95 
     96[View3] 
     97Module=E:\proj\delphi\dproj\UMain.pas 
     98CursorX=1 
     99CursorY=1 
     100TopLine=1 
     101LeftCol=1 
     102 
     103[View4] 
     104Module=E:\proj\delphi\dproj\MyUtils.pas 
     105CursorX=1 
     106CursorY=275 
     107TopLine=258 
    56108LeftCol=1 
    57109 
    …… 
    73125Top=0 
    74126Width=1024 
    75 Height=105 
    76 MaxLeft=-1 
    77 MaxTop=-1 
     127Height=112 
     128MaxLeft=-4 
     129MaxTop=-4 
    78130MaxWidth=1032 
    79 MaxHeight=105 
     131MaxHeight=112 
    80132ClientWidth=1024 
    81133ClientHeight=78 
    …… 
    92144MaxTop=-1 
    93145ClientWidth=430 
    94 ClientHeight=279 
     146ClientHeight=277 
    95147TBDockHeight=303 
    96148LRDockWidth=438 
    …… 
    108160MaxTop=-1 
    109161ClientWidth=525 
    110 ClientHeight=326 
     162ClientHeight=319 
    111163DumpPane=79 
    112164DisassemblyPane=187 
    …… 
    121173Top=107 
    122174Width=156 
    123 Height=82 
     175Height=84 
    124176MaxLeft=-1 
    125177MaxTop=-1 
    …… 
    138190MaxTop=-1 
    139191ClientWidth=199 
    140 ClientHeight=597 
     192ClientHeight=595 
    141193TBDockHeight=494 
    142194LRDockWidth=190 
    …… 
    144196SplitPos=122 
    145197ArrangeBy=Name 
    146 SelectedItem= 
     198SelectedItem=Name 
    147199ExpandedItems=BorderIcons,Options 
    148200HiddenCategories=Legacy 
    …… 
    160212MaxTop=-1 
    161213ClientWidth=413 
    162 ClientHeight=125 
     214ClientHeight=123 
    163215TBDockHeight=149 
    164216LRDockWidth=421 
    …… 
    176228MaxTop=-1 
    177229ClientWidth=286 
    178 ClientHeight=137 
     230ClientHeight=135 
    179231TBDockHeight=161 
    180232LRDockWidth=294 

  • trunk/MyUtils.pas

    r15 r18  
    160160       if ( Bytes = 0 ) then break; 
    161161       Buffer := Buffer + Copy(lpBuffer, 1, Bytes); 
    162        lpBuffer := ''; 
     162       ZeroMemory( @lpBuffer, Sizeof(lpBuffer) ); 
    163163     end; 
    164164     Split( Buffer, delim , output ); 

  • trunk/Projects.pas

    r15 r18  
    164164  proj.name:= xml.FindText( 'Name' ); 
    165165  proj.destfilename := xml.FindText( 'DestFileName' ); 
    166   proj.basepath := xml.FindText( 'BasePath' ); 
    167   proj.basepath := FullPath( dir, proj.basepath ); 
     166 
     167  tmp := xml.FindNode( 'BasePath' ); 
     168  if not Assigned(tmp ) then proj.basepath := dir 
     169  else proj.basePath:= FullPath( dir, tmp.data ); 
    168170   
    169171  proj.outPath := xml.FindText('OutputPath' ); 
    …… 
    206208  xml.Add( 'Name', Self.name ); 
    207209  xml.Add( 'DestFileName',  destfilename ); 
    208   xml.Add( 'BasePath', RelativePath( base, basepath ) ); 
     210 
     211  if self.basepath <> base then  xml.Add( 'BasePath', RelativePath( base, basepath ) ); 
    209212  xml.Add( 'OutputPath', RelativePath( base, outPath ) ); 
    210213  xml.AddBool( 'FullBuild', fullbuild ); 
    …… 
    292295  if not Empty( destfilename ) then options.Add( '-of' + destfilename ) 
    293296  else options.Add( '-of' + Self.name ); 
     297 
     298  with config do begin 
     299    if profileHooks then options.Add( '-gt' ); 
     300    if debugSymbols then options.Add( '-g' ); 
     301    if releaseVersion then options.Add( '-release' ); 
     302  end; 
    294303 
    295304  with config do 

  • trunk/UMain.pas

    r15 r18  
    404404var 
    405405  filename : string; 
    406 begin 
    407   if Assigned( workspace ) and ( not CloseWorkspace ) then Exit; 
     406  dir : string; 
     407begin 
     408  dir := homedir; 
     409  if Assigned( workspace ) then 
     410  begin 
     411    dir := ExtractFilePath( workspace.filename ); 
     412    if not DirectoryExists( dir ) then dir := homedir; 
     413    if ( not CloseWorkspace ) then Exit; 
     414  end; 
    408415  with( FileDialog) do begin 
    409     InitialDir := homedir; 
     416    InitialDir := dir; 
    410417    Filter := 'Workspace files(*.wsx)|*.wsx' ; 
    411418    Title := 'Load Workspace'; 
    …… 
    828835begin 
    829836  if not Assigned( workspace ) then Exit; 
    830   with( FileDialog) do begin 
    831     InitialDir := homedir; 
     837  with( FileDialog ) do 
     838  begin 
     839    InitialDir := ExtractFilePath( workspace.filename ); 
    832840    FileName:= ''; 
    833841    Filter := 'Project files(*.prx)|*.prx' ; 
    …… 
    946954  destfile := CurrentProject.GetResultFile( sourcefileclicked ); 
    947955  workspace.CompileFile( CurrentProject, sourceFileClicked ); 
    948  
     956  UpdateTreeview; 
    949957  StatusBar.SimpleText:=''; 
    950958  StatusBar.SimplePanel := true; 
    951959  if FileExists( destfile ) then  StatusBar.SimpleText := 'Compile successful'; 
    952   UpdateTreeview; 
    953 end; 
     960 end; 
    954961 
    955962procedure TmainForm.PMSaveClick(Sender: TObject); 
    …… 
    987994  if not Assigned( workspace ) then Exit; 
    988995  if not SelProject then Exit; 
    989   if not workspace.BuildProjectEXE( CurrentProject ) then UpdateTreeview; 
    990  
     996  workspace.BuildProjectEXE( CurrentProject ) ; 
     997  UpdateTreeview; 
    991998  OutputDlg.Listbox.Items.Clear; 
    992999  OutputDlg.ShowOutput( CurrentProject, workspace.output, 'Build EXE Results' ); 
    …… 
    9981005  if not SelProject then Exit; 
    9991006  workspace.BuildProjectEXE( CurrentProject ); 
    1000  
     1007  UpdateTreeview; 
    10011008  OutputDlg.Listbox.Items.Clear; 
    10021009  OutputDlg.ShowOutput( CurrentProject, workspace.output, 'Build EXE Results' ); 
    …… 
    10071014  if not SelProject then Exit; 
    10081015  if FileExists( CurrentProject.LibName ) then DeleteFile( CurrentProject.LibName );   
    1009   if not workspace.BuildProjectLIB( CurrentProject ) then UpdateTreeview; 
     1016  workspace.BuildProjectLIB( CurrentProject ); 
     1017  UpdateTreeview; 
    10101018  OutputDlg.Listbox.Items.Clear; 
    10111019  OutputDlg.ShowOutput( CurrentProject, workspace.output, 'Build LIB Results' ); 
    …… 
    10231031  if not SelProject then Exit; 
    10241032  if FileExists( CurrentProject.ExeName ) then DeleteFile( CurrentProject.ExeName ); 
    1025   if not workspace.BuildProjectEXE( CurrentProject ) then UpdateTreeview; 
     1033  workspace.BuildProjectEXE( CurrentProject ) ; 
     1034  UpdateTreeview; 
    10261035  OutputDlg.Listbox.Clear; 
    10271036  OutputDlg.ShowOutput( CurrentProject, workspace.output, 'Build EXE Results' ); 
    …… 
    10481057begin 
    10491058  if not SelProject then Exit; 
    1050   if not workspace.BuildProjectEXE( CurrentProject ) then UpdateTreeview; 
     1059  workspace.BuildProjectEXE( CurrentProject ) ; 
     1060  UpdateTreeview; 
    10511061 
    10521062  if not FileExists( CurrentProject.ExeName ) then 

  • trunk/Workspaces.pas

    r15 r18  
    138138  result := false; 
    139139  output.Clear; 
     140  proj.sources.ClearErrors( fname );   
    140141  if not DirectoryExists( proj.basepath ) then Exit; 
    141142  SetCurrentDir( proj.basepath ); 
    …… 
    158159  TrimAll( output ); 
    159160 
    160   proj.sources.ClearErrors( fname ); 
    161161  if output.count > 0 then proj.sources.AddErrors( fname , output ); 
    162162  Result:= ( output.Count = 0 ); 
    …… 
    171171begin 
    172172  outname := proj.GetResultFile( fname ); 
     173  proj.sources.ClearErrors( fname ); 
    173174  if (not proj.fullbuild) and FileExists(outname) then 
    174175  begin 
    …… 
    381382  for N:=0 to projects.Count-1 do begin 
    382383    proj := projects[ N ]; 
    383     if proj.filename = filename then Exit 
    384     else begin 
     384    if proj.filename = filename then 
     385    begin 
    385386      Result:= proj; 
    386387      Exit;