DXDraw

← →
Шишков Илья (2002-06-15 20:48) [0]

Скажите пожалуйста, как то, что нарисовано на DXDraw, сохранить .bmp-файл

← →
Spose © (2002-06-17 10:47) [1]

procedure TMainForm.PrintScreen;
Const
N : integer=1;
Var
NewGraphic : TDIB;
FileName : String;
begin
NewGraphic := TDIB.Create;
try
DXDraw.Primary.AssignTo(NewGraphic);
FileName:=GetName("Screen"+IntToStr(N)+".bmp");
Inc(N);
NewGraphic.SaveToFile(FileName);
finally
NewGraphic.free;
end;
end;

В юзес токо допиши DIB

DXDraw Найти похожие ветки