Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

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

revision 1.58 by genyakun, Fri Aug 13 14:57:26 2004 UTC revision 1.59 by h677, Tue Aug 17 06:09:13 2004 UTC
# Line 6  uses Line 6  uses
6          Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,          Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7          ComCtrls, StdCtrls, ExtCtrls, Dialogs, FileCtrl, MMSystem,          ComCtrls, StdCtrls, ExtCtrls, Dialogs, FileCtrl, MMSystem,
8          GikoSystem, GikoUtil, Buttons, UrlMon, Menus, ImgList, OleCtrls,          GikoSystem, GikoUtil, Buttons, UrlMon, Menus, ImgList, OleCtrls,
9          SHDocVw_TLB, BoardGroup;  {$IF Defined(DELPRO) }
10            SHDocVw,
11            MSHTML,
12    {$ELSE}
13            SHDocVw_TLB,
14            MSHTML_TLB,
15    {$IFEND}
16            BoardGroup;
17    
18  type  type
19          TOptionDialog = class(TForm)          TOptionDialog = class(TForm)
# Line 1529  begin Line 1536  begin
1536  end;  end;
1537    
1538  procedure TOptionDialog.CroutOptionClick(Sender: TObject);  procedure TOptionDialog.CroutOptionClick(Sender: TObject);
1539    var
1540            KuroutOption: TKuroutOption;
1541  begin  begin
1542    KuroutOption.ShowModal;                try
1543                    KuroutOption := TKuroutOption.Create(Self);
1544                    try
1545                            KuroutOption.ShowModal;
1546                    except
1547                    end;
1548            finally
1549            KuroutOption.Release;
1550            end;
1551  end;  end;
1552    
1553  end.  end.

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

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