ActionManager , ActionList, , . ActionMainMenuBar , ActionToolBar . , ActionManager. ActionManager .
. , CustomizeDlg, . , , . , , , . ActionManager .
ActionManager. ImageList1 ( Win32) ActionManager1 ( ). Images ActionManager ImageList, , . Images ActionManager1 ImageList1.
State . asNormal : . asSuspended asSuspendedEnabled . . State . , Enabled , Enabled true. ,
ActionManager1->State = asSuspended;
FileName , ActionManager . ActionManager . ActionManager . , .
|
|
. FileName , . , FileName, , . .
FileName, . , . FileName , FileName .
ActionManager1. ( Form1->ActionManager1) : :. , , . : , : . - , , : Caption, Hint, ShortCut . Hint . Category. ActionList , .
. . ActionMainMenuBar1 ( ) ActionToolBar1 ( ). . . , . . , . , ActionManager1 ( ActionMainMenuBar1) ( ActionToolBar1). . , ActionToolBar , . .
, , . .
. () (, ) . , . .
|
|
. Caption ( ) , 1, 2. AllowHiding. ( true) . AllowHiding=false, ( ). , . .
:. , None . . , . All . .
Selective, , (, ), ShowCaption, (true false). (, ), ShowCaption false .
None All, ShowCaption . .
. , , . , , . - , . , . , , , .
. . . . .
. , Memo, , , , , . , , , . , , , , , . , .
1. , Caption , Memo1, ImageList1, ActionMainMenuBar1 ActionManager1. ActionManager1 Images ImageList1, .
2. ActionManager1. , .
|
|
3. . . ( , , Shift), TFileOpen, TFileSaveAs TFileExit ( , , Ctrl) TCustomizeActionBars Tools. OK.
4. . , , New Action (Ins) . Action2.
5. Action2. (Name) FileSave1, (Caption) &, (Hint) | (ShortCut) F2. , ImageList1 filesave.bmp Buttons.
6. . (Hint) | .
7. Customize Tools. (Caption) , Category . , ImageList1 many2mny.bmp Buttons.
8. . , ... .
9. . ActionMainMenuBar1. . , . ActionToolBar. , . . , , , . . , , , .
10. FileName ActionManager1 , . CheckBox1 . . , . , . Print Screen, , . . , . ( CheckBox1.) , , , - . , . , - .
11. . Customize, , Actions (), ToolBars (), Options(). : Actions . ToolBars , , Reset, . , , - .. ToolBars Options.
|
|
12. TCustomizeActionBars. CustomizeDlg. CustomizeDlg1 ( ) ActionManager ActionManager1. - , , , ( OnDblClick) CustomizeDlg1 -> Show(); . , .
13. . , . , . , . ActionManager1 . , Dialog. , . Dialog (DefaultExt) txt (Filter)
(*.txt, *.doc) *.txt; *.doc
*.*
OK. , .
14. , .
AnsiString FileName;
, Memo1. , , BeforeExecute ( ), OnAccept ( OK), OnCancel ( Esc). OnAccept:
FileName=FileOpen1->Dialog->FileName;
Memo1->Lines->LoadFromFile(FileName);
FileName. , . Memo1. , , , .
15. BeforeExecute OnAccept. FileName :
FileSaveAs1->Dialog->FileName=FileName;
OnAccept Memo1:
FileName=FileSaveAs1->Dialog->FileName;
Memo1->Lines->SaveToFile(FileName);
16. , OnExecute. , FileName . , Memo1 . FileName , , . , . Execute. :
if(FileName!="")
Memo1->Lines->SaveToFile(FileName);
else FileSaveAs1->Execute();
17. . .