Merge branch 'master' into dev-bgracontrols

bgracontrolsinfo.pas

@@ -9,7 +9,7 @@ uses
   Classes, SysUtils;
 
 const
-  BGRAControlsVersion = 9000104;
+  BGRAControlsVersion = 9000105;
 
   function BGRAControlsVersionStr: string;
 

bgrapascalscriptcomponent.lpk

@@ -11,7 +11,7 @@
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
     </CompilerOptions>
-    <Version Major="9" Release="1" Build="4"/>
+    <Version Major="9" Release="1" Build="5"/>
     <Files Count="3">
       <Item1>
         <Filename Value="bgrapascalscript.pas"/>

colorspeedbutton.pas

@@ -557,7 +557,7 @@ begin
   if Toggle then
     Pressed := not Pressed;
 
-  if PopupMode then
+  if PopupMode and Assigned(PopupMenu) then
   begin
     p := Parent.ClientToScreen(Point(Left, Top));
     PopupMenu.PopUp(p.x, p.y + Height);

update_bgracontrols_force.json

@@ -8,13 +8,13 @@
       "ForceNotify" : true,
       "InternalVersion" : 25,
       "Name" : "bgracontrols.lpk",
-      "Version" : "9.0.1.4"
+      "Version" : "9.0.1.5"
     },
     {
       "ForceNotify" : false,
       "InternalVersion" : 1,
       "Name" : "bgrapascalscriptcomponent.lpk",
-      "Version" : "9.0.1.4"
+      "Version" : "9.0.1.5"
     }
   ]
 }