вантаженні вікорістовуватіме перевірку розміра екрана монітору и при перевіщені формою цього розміру автоматично прірівнюватіме до него, а такоже віводітіме у компонент ComboBox1 список всех шріфтів даного комп ютера.
користуючися Глобальний про єктом Mouse у StatusBar Виводити Поточні координати курсору міші відносно форми та екранах, а такоже при натісканні на кнопку вікорістовуватіме реверсному зміну кнопок міші.
користуючися властівостямі компоненту ApplicationEvents при наведені Мішею на будь-якійкомпонент на форме у StatusBar віводівся текст підказки Закладення у властівість Hint шкірного компонента.
При натісненні клавіші Num Lock, Caps Lock та Insert вивести у Statusbar стан кнопок.
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{}
//---------------------------------------------------------------------------__fastcall TForm1 :: FormCreate (TObject * Sender)
{ gt; Width=this- gt; Width gt; Screen- gt; Width? Screen- gt; Width: this- gt; Width; gt; Height=this- gt; Height gt; Screen- gt; Height? Screen- gt; Height: this- gt; Height; - gt; Items- gt; Assign (Screen- gt; Fonts);
}
//---------------------------------------------------------------------------__fastcall TForm1 :: FormMouseMove (TObject * Sender, TShiftState Shift, int X, int Y)
{POINT pos; ( amp; pos); - gt; Panels- gt; Items [0] - gt; Text= Екран: x= + FloatToStr (pos.x) + y= + FloatToStr (pos.y); - gt; Panels- gt; Items [1] - gt; Text= nФорма: x= + FloatToStr (pos.x-Left) +
y= + FloatToStr (pos.y-Top);
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)
{bool b (false); (b =! b);
}
//---------------------------------------------------------------------------__fastcall TForm1 :: ApplicationEvents1ActionExecute (TBasicAction * Action, bool amp; Handled)
{StatusBar1- gt; Panels- gt; Items [2] - gt; Text=Application- gt; Hint;}
//---------------------------------------------------------------------------__fastcall TForm1 :: FormKeyUp (TObject * Sender, WORD amp; Key, TShiftState Shift)
{(Key)
{VK_CAPITAL: - gt; Panels- gt; Items [3] - gt; Text=(:: GetKeyState (VK_CAPITAL))? CapsLock : Laquo; bbb raquo ;;; VK_NUMLOCK: - gt; Panels- gt; Items [3] - gt; Text=(:: GetKeyState (VK_NUMLOCK))? NumLock : Laquo; bbb raquo ;;; VK_SCROLL: - gt; Panels- gt; Items [3] - gt; Text=(:: GetKeyState (VK_SCROLL))? ScrollLock : Laquo; bbb raquo ;;;
}
}
//---------------------------------------------------------------------------
Практична робота 14. Програми для роботи зі стандартними діалоговімі компонентами
Завдання 14.1
За помощью компонентів FontDialog, PrintDialog, PrintSetupDialog реалізуваті підтрімку форматованого текст в компоненті RichEdit з можлівістю друку его вмісту.
//---------------------------------------------------------------------------
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit1.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1;
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{}
//---------------------------------------------------------------------------__fastcall TForm1 :: N1Click (TObject * Send...
