Скачать: CL | DM;

Screenshot возникла проьлема при alphablend   Найти похожие ветки 

← →
IraiZor ©   (2004-04-21 14:43) [0]

Мастера, делаю скриншот вот таким образом :
procedure TForm1.SaveScreenShot1Click(Sender: TObject);
var canvas:tcanvas;
bitmap:tbitmap;
a:integer;
//Save ScreenShot !
begin
 if savepicturedialog1.Execute then
   begin
     sleep(1000);
     Canvas := TCanvas.Create;
     Bitmap := TBitmap.Create;
     a := GetDC(0);
     try
     Canvas.Handle := a;
     with Screen do
       begin
         Bitmap.Width := Width;
         Bitmap.Height := Height;
         Bitmap.Canvas.CopyRect(Rect(0, 0, Width, Height), Canvas,Rect(0, 0, Width, Height));
         Bitmap.SaveToFile(savepicturedialog1.filename+".bmp");
       end
     finally
     ReleaseDC(0, a);
     bitmap.Free;
     Canvas.Free
   end;
 end;
end;

тока когда форма у меня полу прозрачная aplhablend = true ,alphablendvalue=230

на скрине моего прложения не видно, есть только то что было за ним , как вылечить?

---

← →
IraiZor ©   (2004-04-22 07:14) [1]

up

---

← →
IraiZor ©   (2004-04-22 08:06) [2]

^

---

← →
DVM ©   (2004-04-22 09:49) [3]

на время скриншота убрать прозрачность.

---

← →
Iraizor ©   (2004-04-22 10:41) [4]

можно, но неплохо было бы оставлять полу- прозрачность

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c