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



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

   if dbIm<>nil then begin 
     try 
      dbIm.PasteFromClipboard; 
      dbIM.DataSource.DataSet.Post; 
     except 
      ShowMessage('Буфер не содержит необходимый рисунок.'); 


157 
 
     end; 
   end; 
end; 
 
procedure TfmMain.mcPasteClick(Sender: TObject); 
var  dbIM:TDBImage; 
begin 
if Not(Clipboard.HasFormat(CF_PICTURE)) then Exit; 
 dbIm:=nil; 
 With MenuClip do 
 if PopupComponent is TDBImage then  dbIM:=(PopupComponent as TDBImage); 
   if dbIm<>nil then begin 
     try 
      dbIm.PasteFromClipboard; 
      dbIM.DataSource.DataSet.Post; 
     except 
      ShowMessage('Ошибка сохранения рисунка.'); 
     end; 
   end; 
end; 
 
procedure TfmMain.mcCopyClick(Sender: TObject); 
var  dbIM:TDBImage; 
begin 
 dbIm:=nil; 
 With MenuClip do 
 if PopupComponent is TDBImage then  dbIM:=(PopupComponent as TDBImage); 
 if dbIm<>nil then dbIM.CopyToClipboard; 
end; 
 
procedure TfmMain.mcCutClick(Sender: TObject); 
var  dbIM:TDBImage;nmField:string; 
begin 


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




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

    Басты бет