anchor.diff:        end;
     end; { case }
   
  -  Canvas.EndDraw;
   end;
   
   procedure TfpgPageControl.HandlePaint;
  
positive.code:     Exit; //==>
    FText := AValue;
    if PageControl <> nil then
      PageControl.RePaintTitles;
  end;
  
  procedure TfpgTabSheet.HandlePaint;
  
negative.code:   if h = nil then
      Exit; //==>
    
    Canvas.SetTextColor(TextColor);
    lTxtFlags := [];
    if not Enabled then
  