Глючит ли Имага?

← →
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.

Санкс попробую!

Глючит ли Имага? Найти похожие ветки