Форум: "Media";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];
Вниз
Глючит ли Имага? Найти похожие ветки
← →
loky © (2004-09-16 16:18) [0]procedure TForm1.Button2Click(Sender: TObject);
var
d: hdc;
i: integer;
begin
D:=getdc(0);
bitblt(Image1.Canvas.Handle,0,0,Image1.Width,image1.Height,d,0,0,SRCCOPY);
i:=0;
while FileExists(IntToStr(i)+".bmp") do inc(i);
Image1.Picture.SaveToFile(IntToStr(i)+".bmp");
// ReleaseDC(0, d); - не нужна (кажется)
end;
В результате нулевая бмп-ха нормальная, а все последующие - со съехавшей палитрой. Из-за чего???
На имаге все нормально.
← →
Рыба © (2004-09-16 18:40) [1]
procedure TForm1.Button2Click(Sender: TObject);
var
d: hdc;
i: integer;
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.Width := Screen.Width;
Bmp.Height := Screen.Height;
Bmp.PixelFormat := pf24Bit;
D:=getdc(0);
bitblt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,d,0,0,SRCCOPY);
i:=0;
while FileExists(IntToStr(i)+".bmp") do inc(i);
Bmp.SaveToFile(IntToStr(i)+".bmp");
ReleaseDC(0, d); { нужна кажется :)) }
finally
Bmp.Free;
end;
end;
← →
Mihey_temporary © (2004-09-16 21:37) [2]Исользуй Canvas.Handle и SaveToFile от Image1.Picture.Bitmap.
← →
loky © (2004-10-01 15:30) [3]Санкс попробую!
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.278 c
