Шығыс Қазақстан облысының білім басқармасы



Pdf көрінісі
бет167/180
Дата06.01.2022
өлшемі4,77 Mb.
#15026
1   ...   163   164   165   166   167   168   169   170   ...   180
Байланысты:
УМК-ОББ

  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); 


Достарыңызбен бөлісу:
1   ...   163   164   165   166   167   168   169   170   ...   180




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет