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



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

var j:integer; 
    dbIM:TDBImage;   
//Ссылка на компонент, из которого вызвано меню
 
    nmField:string; 
//Имя поля БД, с которым связан компонент
 
    tmf:TMemoField; 
//Ссылка на поле БД, с которым связан компонент
  
begin 
 nmField:=''; dbIM:=nil; 
 
// Запрет – разрешение пунктов меню:
 
 With MenuClip do begin 
  Items[1].Enabled := Clipboard.HasFormat(CF_PICTURE); 
//Вставка
 
  if PopupComponent is TDBImage then  dbIM:=(PopupComponent as TDBImage); 
  if dbIm<>nil then begin 
    nmField:=dbIM.DataField; 
    tmf:=dbIM.DataSource.DataSet.FieldByName(nmField) as TMemoField; 
    if tmf<>nil then begin 
     if tmf.BlobSize>0 then Items[2].Enabled :=True 


156 
 
      else Items[2].Enabled :=False; 
//Копирование
 
      Items[3].Enabled :=Items[2].Enabled;  
//Вырезка
 
      Items[4].Enabled :=Items[2].Enabled;  
//Сохранение
 
      Items[5].Enabled :=Items[2].Enabled;  
//Очистка
 
    end; 


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




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

    Басты бет