richeedit保存bmp图片的问题

yct0605 2019-09-19 07:38:38

用richeedit编辑文字信息，然后保存成bmp图片，保存时有保存路径和名称对话框，发现有的时候图片显示的内容会被保存对话框干扰，求解决方法！

原文字信息

保存对话框有时候会干扰图片保存

异常图片

保存代码



procedure TFrmSaveBmp.SaveButtonClick(Sender: TObject);

var

  can: TCanvas;

  bmp: TBitmap;

begin

  //////////////////////////////////////////////////////////////////////////////

  if SaveDialog.Execute  then

  begin

    if FileExists(SaveDialog.FileName) then

      if Application.MessageBox(PChar(Format(sOverWrite, [SaveDialog.FileName])),'提示',MB_YESNOCANCEL+MB_ICONINFORMATION)<>idyes then Exit;

      

      can := TCanvas.Create;

      bmp := TBitmap.Create;

      try

        bmp.Width  := Editor.Width;

        bmp.Height := Editor.Height;

        bmp.PixelFormat:=pfDevice;

        bmp.PixelFormat:=pf8bit;

        can.Handle := GetDC(Editor.Handle);

        bmp.Canvas.CopyRect(Rect(0,0,Editor.Width,Editor.Height),can,Editor.ClientRect);

        bmp.SaveToFile(SaveDialog.FileName);

      finally

        bmp.Free;

        can.Free;

      end;

    SetFileName(SaveDialog.FileName);

    Editor.Modified := False;

    SetModified(False);

  end;

end;

...全文

168 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

yct0605 2019-09-28

打赏
举报

引用 2 楼天行归来的回复:

是在什么情况下会被遮挡，我测试了几次都不会。dc指向的是editor，如果指向DeskTop，遮挡是正常。试试看以下方式会不会出现遮挡。


var
  //can: TCanvas;
  bmp: TBitmap;
begin
  //////////////////////////////////////////////////////////////////////////////
  if SaveDialog.Execute  then
  begin
    if FileExists(SaveDialog.FileName) then
      if Application.MessageBox(PChar(Format(sOverWrite, [SaveDialog.FileName])),'提示',MB_YESNOCANCEL+MB_ICONINFORMATION)<>idyes then Exit;

      //can := TCanvas.Create;
      bmp := TBitmap.Create;
      try
        //can.Handle := GetDC(Editor.Handle);
        bmp.Width  := Editor.Width;
        bmp.Height := Editor.Height;
        bmp.PixelFormat:=pfDevice;
        bmp.PixelFormat:=pf8bit;
        BitBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,GetDC(Editor.Handle),0,0,SRCCOPY);
        //bmp.Canvas.CopyRect(Rect(0,0,Editor.Width,Editor.Height),can,Editor.ClientRect);
        bmp.SaveToFile(SaveDialog.FileName);
      finally
        bmp.Free;
        //can.Free;
      end;
    Editor.Modified := False;
  end;

也不是每次都会出现，偶尔也会出现，现在基本上确定是弹出对话框的问题。先用你的方法试一下

天行归来 2019-09-20

打赏
举报

是在什么情况下会被遮挡，我测试了几次都不会。dc指向的是editor，如果指向DeskTop，遮挡是正常。试试看以下方式会不会出现遮挡。


var
  //can: TCanvas;
  bmp: TBitmap;
begin
  //////////////////////////////////////////////////////////////////////////////
  if SaveDialog.Execute  then
  begin
    if FileExists(SaveDialog.FileName) then
      if Application.MessageBox(PChar(Format(sOverWrite, [SaveDialog.FileName])),'提示',MB_YESNOCANCEL+MB_ICONINFORMATION)<>idyes then Exit;

      //can := TCanvas.Create;
      bmp := TBitmap.Create;
      try
        //can.Handle := GetDC(Editor.Handle);
        bmp.Width  := Editor.Width;
        bmp.Height := Editor.Height;
        bmp.PixelFormat:=pfDevice;
        bmp.PixelFormat:=pf8bit;
        BitBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,GetDC(Editor.Handle),0,0,SRCCOPY);
        //bmp.Canvas.CopyRect(Rect(0,0,Editor.Width,Editor.Height),can,Editor.ClientRect);
        bmp.SaveToFile(SaveDialog.FileName);
      finally
        bmp.Free;
        //can.Free;
      end;
    Editor.Modified := False;
  end;