Browse Source

--- Merging r17911 into '.':
U ide/fpmopts.inc

# revisions: 17911
------------------------------------------------------------------------
r17911 | pierre | 2011-07-02 09:03:00 +0200 (Sat, 02 Jul 2011) | 1 line
Changed paths:
M /trunk/ide/fpmopts.inc

* Avoid unitialized VM variable in Preferences method
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@17920 -

marco 14 years ago
parent
commit
0fec0c7717
1 changed files with 1 additions and 0 deletions
  1. 1 0
      ide/fpmopts.inc

+ 1 - 0
ide/fpmopts.inc

@@ -972,6 +972,7 @@ var R,R2: TRect;
     i : word;
     i : word;
 begin
 begin
   New(C, Init(10,50));
   New(C, Init(10,50));
+  CurVP:=nil;
   for i:=0 to GetVideoModeCount-1 do
   for i:=0 to GetVideoModeCount-1 do
    begin
    begin
       GetVideoModeData(i,VM);
       GetVideoModeData(i,VM);