Código:
{ 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.
Código:
{ 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.
Código:
{ Object Pascal }
Dec (StartDragPT.X, Left);
Inc (BrushCounter, 2);
// C++
StarDragPT->X -= Left;
BrushCounter += 2;