Главная страница
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.091 c
1-1079886820
Batoon
2004-03-21 19:33
2004.04.11
Тильда и VK_...


1-1082360458
k&k
2004-04-19 11:40
2004.04.11
Drag&Drop


6-1079823666
Автор
2004-03-21 02:01
2004.04.11
Как программе использовать для вычислений несколько компов в сети


14-1079469946
Andy BitOff
2004-03-16 23:45
2004.04.11
Почему вновь прибывшие на форум не жмут поиск?


1-1079872850
MAXH0
2004-03-21 15:40
2004.04.11
Закачка файлов с интернета.