ShowShearDlg example for C++ Builder

void __fastcall TForm1::ShowShearDlg1Click(TObject *Sender) 
{
   LEADDlgImage1->Horizontal = true; 
   LEADDlgImage1->Angle = 4500; 
   LEADDlgImage1->BackgroundColor = RGB ( 255, 0, 0 ); 
   LEADDlgImage1->DlgFlags = DLG_SHEAR_AUTOPROCESS |
                            DLG_SHEAR_SHOW_PREVIEW |
                            DLG_SHEAR_SHOW_BACKCOLOR |
                            DLG_SHEAR_SHOW_HORIZONTAL; 

   LEADDlgImage1->LEADImage = LEADImage1; 
   LEADDlgImage1->LEADDlgService = LEADDlgService1; 

   LEADDlgImage1->ShowShearDlg ( this ); 
}