Out of system resources - Общие вопросы Delphi

sergeyrulit · 19.11.2010, 21:53

Появляется вот такая ошибка: Out of system resources.

Код:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  RCut: TRect;
begin
  Permission:= false;

  RCut:= Rect(StartX, StartY, X, Y);
  DoneScreenShot.PixelFormat:= pf24bit;
  DoneScreenShot.Height:= RCut.Bottom - RCut.Top;
  DoneScreenShot.Width:= RCut.Right - RCut.Left;
  DoneScreenShot.Canvas.CopyRect(DoneScreenShot.Canvas.ClipRect, SourceScreenShot.Canvas, RCut);
  DoneScreenShot.SaveToFile('C:\MyBitmap.bmp');

end;

Если убрать

Код:

 DoneScreenShot.Height:= RCut.Bottom - RCut.Top;
  DoneScreenShot.Width:= RCut.Right - RCut.Left;

То работает нормально, правда картинка не открывается, из за того что не указан размер..

mihali4 · 19.11.2010, 23:53

У нас принято давать темам названия, отражающие суть вопроса.
Читаем правила форума и раздела.
Модератор

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Локализация программы и Delphi(DLL Resources Wizzard) загрузка перевода.	Человек_Борща	Общие вопросы Delphi	2	22.09.2010 19:19
Resources в VS 2008 C#	WOWka777	Общие вопросы .NET	0	24.04.2010 16:47
Office System Developer Resources	niziriska	Общие вопросы .NET	0	16.04.2010 10:26
Resources	HunterMan	Общие вопросы .NET	3	31.12.2009 19:04
Простая программа, но очень нужная: RESOURCES CREATOR	uberchel	Софт	11	13.11.2009 17:33

19.11.2010, 23:53	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	У нас принято давать темам названия, отражающие суть вопроса. Читаем правила форума и раздела. Модератор