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

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

Pdf көрінісі

бет	170/180
Дата	06.01.2022
өлшемі	4,77 Mb.
	#15026

1 ... 166 167 168 169 170 171 172 173 ... 180

dbIM.DataSource.DataSet.FieldByName(nmField).Clear; dbIM.DataSource.DataSet.Post; end; end;
if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); try
if dbIM.DataSource.State dsEdit then dbIM.DataSource.Edit;

dbIm:=nil;
With MenuClip do
if PopupComponent is TDBImage then  dbIM:=(PopupComponent as TDBImage);
if dbIm<>nil then begin
    dbIM.CutToClipboard;nmField:=dbIM.DataField;
    if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit;
    dbIM.DataSource.DataSet.FieldByName(nmField).Clear;
    dbIM.DataSource.DataSet.Post;
end;
end;

procedure TfmMain.mcSaveClick(Sender: TObject);
var  dbIM:TDBImage;
begin
if Not(dlgSaveImage.Execute) then Exit;
dbIm:=nil;
With MenuClip do
if PopupComponent is TDBImage then  dbIM:=(PopupComponent as TDBImage);
try

158

  if dbIm<>nil then dbIM.Picture.SaveToFile(dlgSaveImage.FileName);
except
  ShowMessage('Ошибка записи в файл:'+#13#10+dlgSaveImage.FileName);
end;
end;

procedure TfmMain.mcClearClick(Sender: TObject);
var  dbIM:TDBImage;nmField:string;
begin
dbIm:=nil;
With MenuClip do
if PopupComponent is TDBImage then  dbIM:=(PopupComponent as TDBImage);
if dbIm<>nil then begin
    nmField:=dbIM.DataField;
    if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit;

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

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

1 ... 166 167 168 169 170 171 172 173 ... 180