🚀 go-pugleaf

Greetings:

I was wondering if there was a good reference on the web that discusses how
to convert Object Pascal to C++.  While I'm at it, is the following
coversion correct:

Object Pacal version:
procedure TCustomColorBox.SetStyle(AStyle: TColorBoxStyle);
begin
  if AStyle <> Style then
  begin
    FStyle := AStyle;
    Enabled := ([cbStandardColors, cbExtendedColors, cbSystemColors,
cbCustomColor] * FStyle) <> [];
    PopulateList;
    if (Items.Count > 0) and (ItemIndex = -1) then
      ItemIndex := 0;
  end;
end;

C++ version:
void __fastcall TColorBoxAlpha::SetStyle( TColorBoxStyle AStyle )
{
     if( AStyle != Style )
     {
          FStyle = AStyle;

          TColorBoxStyle temp;
          temp << cbStandardColors
               << cbExtendedColors
               << cbSystemColors
               << cbCustomColor;

          if( false == TColorBoxStyle( temp * FStyle ).Empty( ) )
               { Enabled = true; }
          else
               { Enabled = false; }

          PopulateList( );

          if(    ( Items->Count > 0 )
              && ( ItemIndex == -1 )   )
          {
               ItemIndex = 0;
          }
     }
}