delphi 7
Delphi 7.
,
.
-
.
Delphi 7,
,
.
-
-
,
, ,
, ,
-
,
.
, .
TMemo TMainMenu.
Standard MainMenu Memo .
TMemo TMainMenu, ,
.
Delphi 7,
.
Memo1, , Align alClient
, .
ScrollBars ssBoth, WordWrap False.
Memo1 -, Lines.
. . .
, -
.
SmallNoteUnit1.pas ( Unit1.pas
), :
Memo1: TMemo;
MainMenu1: TMainMenu;
Memo1
,
()
View as form.
, - .
, .
exe .
,
.
,
:)))).
, .
. .
.
MainMenu1 - . "",
: "", "", "", " ...",
( "-") ""
.
, Windows,
,
- ,
.
- -
, .
- -
.
, .
,
. , .
.
.
. Delphi 7,
. :)))
SmallNoteUnit1.pas
, - .
, ,
, . . ,
- .
-
:
Close;
procedure TForm1.iQuitClick(Sender: TObject);
begin
Close;
end;
, exe .
:
>
,
.
- Close - , .
-
Application.Terminate;
Exit;
(),
.
Close . ,
, -
-
.
- Close, ,
-
.
Close
Form1.Close;
,
procedure TForm1.iQuitClick(Sender: TObject);
. . TForm1,
Close ,
Form1, TForm1 .
Close - , ,
-
Form1.Close;
,
.
Form1 , Close - ,
.
, ( > )
, -
> Form1 .
procedure TForm1.iWordWrapClick(Sender: TObject);
begin
end;
-
procedure TForm1.iWordWrapClick(Sender: TObject);
begin
If Memo1.WordWrap then
begin
Memo1.WordWrap := False;
Memo1.ScrollBars := ssBoth;
iWordWrap.Checked := False;
end
else begin
Memo1.WordWrap := True;
Memo1.ScrollBars := ssVertical;
iWordWrap.Checked := True;
end;
end;
, , .
,
,
- .
,
procedure TForm1.iWordWrapClick(Sender: TObject);
begin
If Memo1.WordWrap then { WordWrap Memo1, }
begin
Memo1.WordWrap := False; // False . .
Memo1.ScrollBars := ssBoth; //
iWordWrap.Checked := False; // >
end
else begin { WordWrap Memo1, }
Memo1.WordWrap := True; // True - . .
Memo1.ScrollBars := ssVertical; //
// ( )
iWordWrap.Checked := True; // >
end;
end;
- .
( ) .
- , ,
.
. .
-
>
>
procedure TForm1.iSaveAsClick(Sender: TObject);
begin
end;
//SaveAs;
. . -
procedure TForm1.iSaveAsClick(Sender: TObject);
begin
//SaveAs;
end;
// .
. . .
, SaveAs,
- .
.
,
,
TSaveDialog, Dialogs.
.
,
Filter
...
DefaultExt
*.txt
SaveAs
{$R *.dfm}
procedure SaveAs;
begin
If Form1.SaveDialog1.Execute then
{ , , }
begin
// Memo1.Lines Form1.SaveDialog1.FileName
//
//
Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);
// ( )
//
EditedTxtFile := Form1.SaveDialog1.FileName;
end;
end;
Form1: TForm1;
EditedTxtFile: string;
. .
var
Form1: TForm1;
EditedTxtFile: string;
procedure TForm1.iSaveAsClick(Sender: TObject);
begin
//SaveAs;
end;
//
. .
procedure TForm1.iSaveAsClick(Sender: TObject);
begin
SaveAs;
end;
, ,
- ,
>
,
, Windows
- -
.
>
procedure TForm1.iSaveClick(Sender: TObject);
begin
if EditedTxtFile = '' then SaveAs else Memo1.Lines.SaveToFile(EditedTxtFile);
end;
>
TOpenDialog
DefaultExt
SaveDialog1
*.txt
-
procedure TForm1.iOpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
EditedTxtFile := OpenDialog1.FileName;
end;
end;
, ,
. ,
>
.
>
procedure TForm1.iCreateClick(Sender: TObject);
begin
EditedTxtFile := '';
Memo1.Clear;
end;
procedure TForm1.iCutClick(Sender: TObject);
begin
Memo1.CutToClipboard;
end;
procedure TForm1.iCopyClick(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
procedure TForm1.iPasteClick(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;
, , .
>
- ,
Memo1 . ,
.
>
>
EditedTxtFile
.
, .
( - - ),
- -
Ctrl + C, Ctrl + V, Ctrl + X
.
, Memo1 1
Ctrl + Z,
.
,
ShortCut
.
(
View as Text, ).
object iCut: TMenuItem
Caption = ''
ShortCut = 16472
OnClick = iCutClick
end
object iCopy: TMenuItem
Caption = ''
ShortCut = 16451
OnClick = iCopyClick
end
object iPaste: TMenuItem
Caption = ''
ShortCut = 16470
OnClick = iPasteClick
end
>
TFontDialog.
-
procedure TForm1.iFontClick(Sender: TObject);
begin
if FontDialog1.Execute then Memo1.Font := FontDialog1.Font;
end;
-
Form1.Caption = 'Small Note';
Form1.Position = poScreenCenter;
Win XP.
XPMan ( uses).
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, XPMan;
-
Delphi 7.
- -
TMainMenu, TMemo, TSaveDialog, TOpenDialog, TFontDialog.
.
- ,
-
.
, . ,
.
.
- , Windows
.
,
- ,
. ,
.
, , :
, -
.
- ( )
- ,
.
. -
,
.
( )
.
, -
!
Small Note delphi 7.
zip .
: 213 Kb.
:
0
0
| |
|
|
| |
,
|
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
,
|
|
|
| |
|
|
| |
|
|
| |
|
|
| |
, , 2020 - ,
|
|
|
| |
|
|
| |
|
|
| |
, , , .
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
(3), (1)
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
(3), (1)
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
,
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
|
|
|
| |
|
|
| |
,
|
 anova
|
 A Knots Story |
 sabotage |
|
|
|
| |
|
|
| |
,
|
|
|
| |
|
|
| |
,
|
|
|
| |
|
|
| |
, ,
|
|
|
| |
|
|
| |
, ,
|
|
|
| |
|
|
| |
, , cms,
|
|
|
| |
|
|
| |
,
|
|
|
| |
|
|
| |
, , ria xxl , fly snow 3d , . -
|
|
| |
|
|
| |
fle game engine -
|
|
| |
|
|
| |
- / megainformatic cms express files -
|
|
| |
|
|
| |
Flash, Flash - .
|
|
| |
|
|
| |
(multi lang), , . - (megainformatic cms social), megainformatic cms groupon, keywords gen + , .
megainformatic.ru/webjob/ -
- |
|
| |
megainformatic.ru/webjob/
megainformatic.ru/webjob/ -
- |
|
| |
|
|
| |
,
megainformatic cms admin -
|
|
| |
|
|
| |
350 . |
5800 . |
3000 . |
500 . |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
megainformatic cms free - Photoshop
,
Adobe Photoshop. ,
- GIMP, Corel Photo Paint .
|
|
| |
|
|
| |
2d 3d, , !
. ,
,
!!! ( , ! ). |
|
| |
|
|
| |
|
|
| |
|
|
| |
,
: -
350 . |
510 . |
fle game engine |
|
- , ,
, .
- - :
- |
|
| |
|
|
| |
|
|
| |
|
|
| |
, 3ds max, photoshop, c++,
directx, delphi php.
,
.
. |
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
Photoshop free,
delphi directx - , !,
mp3 - ,
megainformatic cms express -
php + my sql. |
|
| |
|
|
| |
|
|
| |
|
|
| |
,
, delphi directx 8.1 (
3d ), 3d studio max, -
Fruity Loops Studio |
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
