Convertir codigo Delphi a Builder

[Ñuño Martínez]

{ Object Pascal. }
  L = Round (Sqrt (Sqr (PT.x - LastBrushX) + Sqr (PT.y - LastBrushY))); 

// C++
  L == (int)(sqrt (pow (PT->x - LastBrushX, 2) + pow (PT->y - LastBrushY, 2)));

Fíjate que en Object Pascal has escrito "L = ..." y no "L := ..."

Por otro lado utilizo el operador flecha (->) ya que, por lo que sé, Builder utiliza punteros para referenciar los objetos.

{ Object Pascal. }
  if (SXSkinLibrary1.Styles[A] is TSXSkinGeneralStyle) then 

//  C++
  if (strcmp (typeid (SXSkinLibrary1->Styles[A]).name (), "TSXSkinGeneralStyle") == 0) {

El código anterior fallará más que una escopeta de feria. Deberías buscar otro mecanismo. Lee esto.

{ Object Pascal }
   Dec (StartDragPT.X, Left);
   Inc (BrushCounter, 2);

// C++
  StarDragPT->X -= Left;
  BrushCounter += 2;

[[Gabo]]

Sólo una pequeña nota...

= es para las asignaciones en una variable y == para preguntar si una expresión es igual a otra, por lo que:

// C++
L == (int) (sqrt (pow (PT->x - LastBrushX, 2) + pow (PT->y - LastBrushY, 2));

Debería ir con un solo =.

[Ñuño Martínez]

[Gabo], tienes razón, pero como ya escribí antes _Willa escribió "L =..." (comparación) y no "L :=..." (asignación). De todas formas, buena puntualización que seguro que alguno se despista.