Как сохранить Image со свойство Transparent:=True?

[dmitriegorovih]

Я так понимаю вам нужно слегка затемнить исходный документ для того что бы выделить текст я вас правильно понял?

[artemavd]

Да, типо того. Чтобы наложить шаблон на документ и скопировать тот текст, который я выделил рамкой.

[ZuBy]

а если сразу при выделении рамки этот текст копировать, т.е. через BitBlt куда нить на TGraphicControl и сохранить в файл. или вам нужно сохранять обязательно весь шаблон?

TGraphicControl не TImage, а TPaintBox например

[artemavd]

а если сразу при выделении рамки этот текст копировать, т.е. через BitBlt куда нить на TGraphicControl и сохранить в файл.

Это можно сделать. В принципе у меня это готово, но вот именно, что мне нужно

сохранять обязательно весь шаблон

В том-то и проблема, что я не имею понятия как можно придумать это и в какую сторону копать. Должно получиться, что-то наподобии трафарета чтоли.

[dmitriegorovih]

А документ и шаблон идинаковы и будут ли у них постоянны размеры? Потому что если это так можно png попробывать

[artemavd]

А документ и шаблон идинаковы и будут ли у них постоянны размеры?

Размер у Image, в который грузится документ, имеет постоянные размеры. Размеры у шаблона и документа тоже будут одинаковы, ведь первый делается на основе второго.

Потому что если это так можно png попробывать

Как именно?

[dmitriegorovih]

Как именно?

Точно сказать не могу потому что не могу пока сделать редактирование png зато могу подсказать сделать так: создать вторую форму, на неё bitmap c нужным цветом, включить alphablend у формы, transparent у bitmap(a) и у формы включить и на их canvas(ах) рисовать прямоугольники прикольно получиться да и не забудьте таскать вторую форму вместе с первой тоесть добавить вот это событие

procedure okno(var Msg: TWMWindowPosChanging);  message WM_WINDOWPOSCHANGING;

P.S. Извиняюсь про png если на юзаете редактирование png отправьте в личку или выложите здесь

[ZuBy]

могу предложить так.

берем два буфера (тбитмап) с размерами исходного документа, в первый копируем исходный документ, а второй заливаем цветом (кроме clFuchsia) потом копируем рамку (с точными размерами) и через DrawTransparentBmp выводим в первый буфер и потом снова возвращаем в timage

procedure DrawTransparentBmp(Cnv: TCanvas; x, y: Integer;
  Bmp: TBitmap; clTransparent: TColor);
var
  bmpXOR, bmpAND, bmpINVAND, bmpTarget: TBitmap;
  oldcol: Longint;
begin
  try
    bmpAND := TBitmap.Create;
    bmpAND.Width := Bmp.Width;
    bmpAND.Height := Bmp.Height;
    bmpAND.Monochrome := True;
    oldcol := SetBkColor(Bmp.Canvas.Handle, ColorToRGB(clTransparent));
    BitBlt(bmpAND.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, SRCCOPY);
    SetBkColor(Bmp.Canvas.Handle, oldcol);

    bmpINVAND := TBitmap.Create;
    bmpINVAND.Width := Bmp.Width;
    bmpINVAND.Height := Bmp.Height;
    bmpINVAND.Monochrome := True;
    BitBlt(bmpINVAND.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, bmpAND.Canvas.Handle, 0, 0, NOTSRCCOPY);

    bmpXOR := TBitmap.Create;
    bmpXOR.Width := Bmp.Width;
    bmpXOR.Height := Bmp.Height;
    BitBlt(bmpXOR.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, SRCCOPY);
    BitBlt(bmpXOR.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, bmpINVAND.Canvas.Handle, 0, 0, SRCAND);

    bmpTarget := TBitmap.Create;
    bmpTarget.Width := Bmp.Width;
    bmpTarget.Height := Bmp.Height;
    BitBlt(bmpTarget.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, Cnv.Handle, x, y, SRCCOPY);
    BitBlt(bmpTarget.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, bmpAND.Canvas.Handle, 0, 0, SRCAND);
    BitBlt(bmpTarget.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, bmpXOR.Canvas.Handle, 0, 0, SRCINVERT);
    BitBlt(Cnv.Handle, x, y, Bmp.Width, Bmp.Height, bmpTarget.Canvas.Handle, 0, 0, SRCCOPY);
  finally
    freeAndNil(bmpXOR);
    freeAndNil(bmpAND);
    freeAndNil(bmpINVAND);
    freeAndNil(bmpTarget);
  end;
end;

P.S. если не так понял, сорри )