Control.Transparent := _prop_Transparent;
  Inherited;
end;

procedure THIVisualShape.Paint(sender:PControl;DC:HDC);
var
  PT: Integer;
begin
  with sender.canvas{$ifndef F_P}^{$endif} do
   begin
    Brush.Color := Sender.Color;

// Вот это я добавил, а то никакой прозрачности никогда не будет
    if not _prop_Transparent then begin
      Brush.BrushStyle := bsSolid;
    end else
      Brush.BrushStyle := bsClear;
    FillRect(Sender.ClientRect);
    Brush.BrushStyle := bsSolid;