//--------------------------------------------------------------------------- __fastcall TForm21::TForm21(TComponent* Owner, TData &AData, const TDraw &ADraw, const boost::shared_ptr<TTextLabel> &ALabel) : TForm(Owner), Label(ALabel), Data(AData), Draw(ADraw), OldPlacement(ALabel->GetPlacement()) { ScaleForm(this); TranslateProperties(this); SetAccelerators(this); FlipForm(this); const int PlacementToIndex[] = {0, -1, -1, -1, -1, 1, 2, 3}; ComboBox1->ItemIndex = PlacementToIndex[Label->GetPlacement()]; Edit1->Text = ToUString(Label->GetXPos().Text); Edit2->Text = ToUString(Label->GetYPos().Text); }
//--------------------------------------------------------------------- void __fastcall TFAboutDlg_11011981::FormCreate(TObject *Sender) { lVer->Caption = "Version: " + IDRVersion; ScaleForm(this); }
//--------------------------------------------------------------------------- void __fastcall TFExit_11011981::FormCreate(TObject *Sender) { ScaleForm(this); }