Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.075 c
6-1079346465
Aleksandr
2004-03-15 13:27
2004.04.11
Что быстрее в рассылке электронной почты?


1-1080308930
Dysan
2004-03-26 16:48
2004.04.11
avi из ресурса


3-1082021754
alex123
2004-04-15 13:35
2004.04.11
ClientDataSet, DataSetProvider - скрытые поля pfHidden


7-1079525450
DuchmanSoft
2004-03-17 15:10
2004.04.11
Мою программу закрывает другая программа


1-1080152390
Kor@l
2004-03-24 21:19
2004.04.11
Derectory