Browse CVS Repository
Contents of /gikonavigoeson/gikonavi/NewFavoriteFolder.pas
Parent Directory
| Revision Log
| Revision Graph
Revision 1.1 -
( show annotations)
( download)
( as text)
Sat Aug 9 13:51:08 2003 UTC
(20 years, 8 months ago)
by hi_
Branch point for: MAIN, hi
File MIME type: text/x-pascal
Initial revision
| 1 |
unit NewFavoriteFolder; |
| 2 |
|
| 3 |
interface |
| 4 |
|
| 5 |
uses |
| 6 |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| 7 |
Dialogs, StdCtrls; |
| 8 |
|
| 9 |
type |
| 10 |
TNewFavoriteFolderDialog = class(TForm) |
| 11 |
Label1: TLabel; |
| 12 |
Label2: TLabel; |
| 13 |
FolderEdit: TEdit; |
| 14 |
OKButton: TButton; |
| 15 |
CancelButton: TButton; |
| 16 |
ErrLabel: TLabel; |
| 17 |
procedure FolderEditChange(Sender: TObject); |
| 18 |
procedure FormCreate(Sender: TObject); |
| 19 |
private |
| 20 |
{ Private 宣言 } |
| 21 |
public |
| 22 |
{ Public 宣言 } |
| 23 |
end; |
| 24 |
|
| 25 |
var |
| 26 |
NewFavoriteFolderDialog: TNewFavoriteFolderDialog; |
| 27 |
|
| 28 |
implementation |
| 29 |
|
| 30 |
uses |
| 31 |
Favorite; |
| 32 |
|
| 33 |
{$R *.dfm} |
| 34 |
|
| 35 |
procedure TNewFavoriteFolderDialog.FolderEditChange(Sender: TObject); |
| 36 |
begin |
| 37 |
OKButton.Enabled := Length(FolderEdit.Text) <> 0; |
| 38 |
if Trim(FolderEdit.Text) = Favorite.FAVORITE_LINK_NAME then begin |
| 39 |
ErrLabel.Caption := 'フォルダ名に「リンク」は使用出来ません'; |
| 40 |
OKButton.Enabled := False; |
| 41 |
end else |
| 42 |
ErrLabel.Caption := ''; |
| 43 |
end; |
| 44 |
|
| 45 |
procedure TNewFavoriteFolderDialog.FormCreate(Sender: TObject); |
| 46 |
begin |
| 47 |
ErrLabel.Caption := ''; |
| 48 |
end; |
| 49 |
|
| 50 |
end. |
|