示例#1
0
//---------------------------------------------------------------------------
__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);
}
示例#2
0
文件: AboutDlg.cpp 项目: GotoHack/IDR
//---------------------------------------------------------------------
void __fastcall TFAboutDlg_11011981::FormCreate(TObject *Sender)
{
	lVer->Caption = "Version: " + IDRVersion;
    ScaleForm(this);
}
示例#3
0
文件: Exit.cpp 项目: GotoHack/IDR
//---------------------------------------------------------------------------
void __fastcall TFExit_11011981::FormCreate(TObject *Sender)
{
    ScaleForm(this);
}