ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/releases/0.33a/Main.pas
(Generate patch)

Comparing:
oup/current/Main.pas (file contents), Revision 51 by alloc, Sat Dec 23 22:16:42 2006 UTC vs.
oup/releases/0.33a/Main.pas (file contents), Revision 76 by alloc, Thu Jan 11 23:38:49 2007 UTC

# Line 71 | Line 71 | type
71      TBSeparatorItem1: TTBSeparatorItem;
72      tb_db2dat: TTBItem;
73      tb_dat2db: TTBItem;
74 +    menu_loaddb: TTBItem;
75 +    tb_opendb: TTBItem;
76 +    procedure LoadFile(typedb: Boolean);
77      function TryCloseAll: Boolean;
78      procedure menu_AboutClick(Sender: TObject);
79      procedure menu_settingsClick(Sender: TObject);
# Line 105 | Line 108 | type
108      procedure menu_windows_tilevertClick(Sender: TObject);
109      procedure menu_metaClick(Sender: TObject);
110      procedure ToolbarDockChanged(Sender: TObject);
111 +    procedure menu_loaddbClick(Sender: TObject);
112    private
113    public
114    end;
# Line 319 | Line 323 | begin
323   end;
324  
325  
326 < {#################################}
327 < {##### Main-Menu-Handlers    #####}
324 < {#################################}
325 < procedure TForm_Main.menu_loadfileClick(Sender: TObject);
326 >
327 > procedure TForm_Main.LoadFile(typedb: Boolean);
328   var
329    ext: String;
330   begin
# Line 331 | Line 333 | begin
333      CloseDataConnection;
334      opend.InitialDir := AppSettings.DatPath;
335      opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
336 +    if typedb then
337 +      opend.FilterIndex := 3
338 +    else
339 +      opend.FilterIndex := 2;
340      if opend.Execute then
341      begin
342        ext := ExtractFileExt(opend.FileName);
# Line 353 | Line 359 | begin
359   end;
360  
361  
362 + {#################################}
363 + {##### Main-Menu-Handlers    #####}
364 + {#################################}
365 + procedure TForm_Main.menu_loaddbClick(Sender: TObject);
366 + begin
367 +  LoadFile(True);
368 + end;
369 +
370 + procedure TForm_Main.menu_loadfileClick(Sender: TObject);
371 + begin
372 +  LoadFile(False);
373 + end;
374 +
375 +
376  
377  
378   procedure TForm_Main.menu_settingsClick(Sender: TObject);
# Line 579 | Line 599 | begin
599    begin
600      toolform         := TForm_BinEdit.Create(Self);
601      toolform.Caption := 'Binary .dat-Editor ' + IntToStr(tag);
602 <    iconindex        := 4;
602 >    iconindex        := 5;
603    end;
604    if window_context = 'extractor' then
605    begin
606      toolform         := TForm_Extractor.Create(Self);
607      toolform.Caption := 'Extractor ' + IntToStr(tag);
608 <    iconindex        := 7;
608 >    iconindex        := 8;
609    end;
610    if window_context = 'preview' then
611    begin
612      toolform         := TForm_Preview.Create(Self);
613      toolform.Caption := 'Preview-Window ' + IntToStr(tag);
614 <    iconindex        := 3;
614 >    iconindex        := 4;
615    end;
616    if window_context = 'rawedit' then
617    begin
618      toolform         := TForm_RawEdit.Create(Self);
619      toolform.Caption := 'Binary .raw-Editor ' + IntToStr(tag);
620 <    iconindex        := 5;
620 >    iconindex        := 6;
621    end;
622    if window_context = 'txmpreplace' then
623    begin
624      toolform         := TForm_TxmpReplace.Create(Application);
625      toolform.Caption := 'TXMP Replacer ' + IntToStr(tag);
626 <    iconindex        := 6;
626 >    iconindex        := 7;
627    end;
628  
629    if Assigned(toolform) then

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)