Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Option.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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) |
| 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 |
|
|
| |