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

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 

жүктеу/скачать 4,77 Mb.

Достарыңызбен бөлісу: