singlepipe.cpp

来自「石油公司网管系统优化系统软件源码,很有价值的.」· C++ 代码 · 共 39 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SinglePipe.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTSinglePipe *TSinglePipe;
//---------------------------------------------------------------------------
__fastcall TTSinglePipe::TTSinglePipe(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TTSinglePipe::FormResize(TObject *Sender)
{
    TRect Rect;
    Rect=this->GetClientRect();
    int cx,cy;
    cx=Rect.Width();
    cy=Rect.Height();
    
    Back->Top=50;
    Back->Left=5;
    Back->Width=cx-10;
    Back->Height=cy-170;
    RichEdit->Left=5;
    RichEdit->Top=cy-115;
    RichEdit->Width=cx-10;
    RichEdit->Height=80;
    Cancel->Top=cy-30;
    Cancel->Left=cx-100;
}
//---------------------------------------------------------------------------