* added check to ensure the memory allocation for DrawnList inside FloodFill hasn't returned nil

git-svn-id: trunk@40964 -

packages/graph/src/inc/fills.inc

@@ -435,6 +435,11 @@ var
    x1, x2, prevy: smallint;
   Begin
     GetMem(DrawnList,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1));
+    if not assigned(DrawnList) then
+      begin
+        _GraphResult := grNoFloodMem;
+        exit;
+      end;
     FillChar(DrawnList^,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1),0);
     { init prevy }
     prevy := 32767;