Novorocennaja forma. Rabotaet, no ne korektno
Resyl ja tut zabaxat formu kotoraja ne takaja kak vse. Produmal raznyje varianty i resyl sdelat tak (sm. priceplennyj fail).
No pocemuto pri uvelicenije formy ugly morgajut? Kak mozno byloby eto ispravit?
Mozet est drugije ideji kak mozno sdelat cioto poxozee. budu priznatelen za informacyju.
No pocemuto pri uvelicenije formy ugly morgajut? Kak mozno byloby eto ispravit?
Mozet est drugije ideji kak mozno sdelat cioto poxozee. budu priznatelen za informacyju.
выход - использовать WinAPI, а конкретно функцию MoveWindow, тк она позволяет управлять прорисовкй окна.
после модификации твой код примет вид:
void __fastcall TForm1::MakeSmaller(TObject *Sender)
{
if (Width > 296)
{
RECT r;
GetWindowRect(Handle,&r); // узнаем прямоугольник окна
//меняем размер окна без прорисовки
MoveWindow(Handle,r.left,r.top,r.right-r.left-7,r.bottom-r.top,FALSE);
//Width -=7;
iCount++;
Label1->Caption = "Width = " + IntToStr(Width);
Label2->Caption = "Timer = " + IntToStr(iCount);
}
else Timer1->Enabled = false;
}
void __fastcall TForm1::MakeLarger(TObject *Sender)
{
if (Width <= 434)
{
RECT r;
GetWindowRect(Handle,&r); // узнаем прямоугольник окна
MoveWindow(Handle,r.left,r.top,r.right-r.left+7,r.bottom-r.top,FALSE);
// Width += 7;
iCount++;
Label1->Caption = "Width = " + IntToStr(Width);
Label2->Caption = "Timer = " + IntToStr(iCount);
}
else Timer1->Enabled = false;
}
вот и все! Удачи. ;-)
после модификации твой код примет вид:
void __fastcall TForm1::MakeSmaller(TObject *Sender)
{
if (Width > 296)
{
RECT r;
GetWindowRect(Handle,&r); // узнаем прямоугольник окна
//меняем размер окна без прорисовки
MoveWindow(Handle,r.left,r.top,r.right-r.left-7,r.bottom-r.top,FALSE);
//Width -=7;
iCount++;
Label1->Caption = "Width = " + IntToStr(Width);
Label2->Caption = "Timer = " + IntToStr(iCount);
}
else Timer1->Enabled = false;
}
void __fastcall TForm1::MakeLarger(TObject *Sender)
{
if (Width <= 434)
{
RECT r;
GetWindowRect(Handle,&r); // узнаем прямоугольник окна
MoveWindow(Handle,r.left,r.top,r.right-r.left+7,r.bottom-r.top,FALSE);
// Width += 7;
iCount++;
Label1->Caption = "Width = " + IntToStr(Width);
Label2->Caption = "Timer = " + IntToStr(iCount);
}
else Timer1->Enabled = false;
}
вот и все! Удачи. ;-)