method visibility

lazpaint/tools/utoolbasic.pas

@@ -70,6 +70,7 @@ type
     function BlurRadius: single;
     function StartDrawing(toolDest: TBGRABitmap; ptF: TPointF; {%H-}rightBtn: boolean): TRect; override;
     function ContinueDrawing(toolDest: TBGRABitmap; originF, destF: TPointF): TRect; override;
+  public
     function GetContextualToolbars: TContextualToolbars; override;
   end;
 

lazpaint/tools/utoolfloodfill.pas

@@ -32,6 +32,7 @@ type
     procedure QuickDefineShape(AStart,AEnd: TPointF); override;
     function SlowShape: boolean; override;
     function GetStatusText: string; override;
+  public
     function GetContextualToolbars: TContextualToolbars; override;
   end;