Тақырып: Delphi ортасында TCanvas класымен жұмыс істеу

1. 
   Класс дегеніміз не?
   
2. 
   Delphi ортасында қандай кластар бар?
   
3. 
   TСanvas класының объектілерін атањыз.
   

№1 жұмыс.

• 
   пернесін басқанда, форманың әрбір компонентінің түсінің ашықтығы 5 бірлікке артатын;
  
• 
   пернесін басқанда форманың әрбір компонентінің түсінің ашықтығы 5 бірлікке азаятын;
  
• 
  Escape пернесін басқанда, MessageBox стандартты функциясы арқылы жасалған сұхбат терезесі ашылып, (1-сурет) терезедегі Yes батырмасын басқанда Close командасы орындалып, форма жабылатын;
  
• 
  F1 пернесін басқанда анықтама терезесі ашылатын (2-сурет) проект құрыңыз.
  

{OnClick оқиғасы арқылы салынған дөңгелектің коды}

procedure TForml.FormClick(Sender: TObject);

begin

Canvas.Brush.Color := clGreen;

Canvas.Ellipse(60, 10, 290, 240);

end;

1. 
   Delphi визуалды программалау ортасын жүктеп, жоғарыда көрсетілген процедураны енгізіңіз.
   
2. 
   Проектіні сақтап орындалуға жіберіңіз.
   
3. 
   Қандайда бір программаның (Internet Explorer) терезесін ашыңыз.
   
4. 
   Сақтаған проектіңіздің терезесін ашыңыз (.exe файлын) және оны Internet Explorer терезесінің сол жақ жоғарғы бұрышын жауып тұратындай орналастырыңыз.
   
5. 
   Терезенің үстінен тышқанның сол жақ батырмасын шертіңіз.
   
6. 
   Неге толық дөңгелек шықпады? Неге алдыңғы терезенің сол жақ бұрышы сіздің проектінің терезесінің бір бөлігін басып қалды? (Жазбаша жауап беріңіз)
   
7. 
   Проектіні мына процедурамен толықтырыңыз:
   

begin

Canvas.Brush.Color := clGreen;

Canvas.Ellipse(60, 10, 290, 240);

end;

8. 
   2, 3, 4, 5 тапсырмаларды тағы да орындаңыз.
   
9. 
   Тереземен қандайда бір операция жасаңыз. Мысалы: тышқанмен терезенің өлшемін өгертіңіз.
   
10. 
    Қандай өзгеріс болды? Неге? (Жазбаша жауап беріңіз)
    

procedure TForml.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

{ Key басылған перененің коды}

{ пернесі басылғанда форманың түсінің ашықтығын көбейтеміз}

VK_UP: Color := (Color + $050505) and $FFFFFF;

{ пернесі басылғанда форманың түсінің ашықтығын азайтамыз}

VK_DOWN: Color := (Color - $050505) and $FFFFFF;

{Escape пернесі басылғанда сұхбат терезе ашылады}

VK_ESCAPE: begin

if Application.MessageBox('Закончить работу с программой?',

'Пример №4', MB_YESNO or MB_ICONQUESTION) = IDYES then Close;

end;

терезесінде көрсетіледі }

VK_F1: Application.MessageBox(

'1. Стрелка вверх — увеличение яркости.'#13#10 +

'2. Стрелка вниз -- уменьшение яркости.'#13#10 +

'3. Escape — выход из программы.'#13#10 +

'4. F1 -- справка.',

'Справка', МВ_ОК or MB_ICONINFORMATION);

end;
№2 жұмыс.

Форманың кез-келген жерінен тышқанның сол жақ батырмасын шерткенде, сол орынға жуан нүкте салынып және нүктенің жанына тышқанның курсорының координатасы жазылатын проект жасаңыз.