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

Вниз

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

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.46 MB
Время: 0.022 c