end; //Присвоить номера картинок для пунктов меню: for j:=0 to Items.Count -1 do if Items[j].Enabled then Items[j].ImageIndex:=2*j else Items[j].ImageIndex:=2*j+1; end; end;
3.
Программаны жіберіп, оны тексеріңіз. Егер алмасу буферінде графикалық
сурет бар болса, онда қою командасы рұқсат етілген болып есептеледі, ал басқа жағдайда
тосқауыл қойылған болып есептеледі.
3-қадам. Қалқып шығатын меню командаларын программалау. 1.
Формаға Dialogs терезесінен OpenPictureDialog және SavePictureDialog,
компоненттерін орналастырыңыз, содан кейін олардың Name қасиетіне dlgOpenImage және
dlgSaveImage мағыналарын меншіктеңіз..
2.
Дизайнер менюінде щелкните по пункту «Открыть» пункті бойынша шертіп,
төменде көрсетілген процедураны құрыңыз:
3.
procedure TfmMain.mcOpenClick(Sender: TObject);