Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»


begin StartX := X; StartY := Y; end



жүктеу 2,2 Mb.
бет43/118
Дата04.01.2022
өлшемі2,2 Mb.
#36255
1   ...   39   40   41   42   43   44   45   46   ...   118
Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

begin

StartX := X;

StartY := Y;

end;

{ Бұл кодты пішіннің OnMouseUp оқиғасының өңдеуіші ретінде қолданыңыздар: }

procedure TForm1.FormMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X,Y: Integer);

begin

Form1.Canvas.Rectangle(StartX, StartY, X, Y);

StatusBar1.Panels[0].Text := '';

StatusBar1.Panels[1].Text := '';

StatusBar1.Panels[2].Text := '';

StatusBar1.Panels[3].Text := '';



end;

{ Бұл кодты пішіннің OnMouseMove оқиғасының өңдеуіші ретінде қолданыңыздар: }

procedure TForm1.FormMouseMove(Sender: TObject;
Shift: TShiftState; X,Y: Integer);

begin

if ssLeft in Shift then { батырманың басылғанын тексеріңіздер }

begin

if Y > StartY then

begin

StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(StartY);

StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(Y);

end

else

begin

StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(Y);

StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(StartY);

end;

if X > StartX then

begin

StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(StartX);

StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(X);

end

else

begin

StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(X);

StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(StartX);

end;

end;

end;

















































































4-дәріс.Графикалық мүмкіндіктер

4.1. Қозғалысты программалау.

Қозғалысты еліктету немесе анимация эффектін көрсету негізгі үш қадамдың орындалуымен қамтылады:

  • Объектіні экран бетіне шығару (кейде шағын үзіліс орнатылғаны жөн);

  • Объектіні экраннан алып тастау;


  • Объектіні басқа жерге шығару.
Диаграмма және график салу

Диаграмма мен график сандық берілгендерді ұғынуды жеңілдетуге бейімделген және Delphi ортасы олармен жұмыс атқаратын компоненттерімен қамтылған. Диаграммаларды екі топқа бөлуге болады:

  • Индикаторлар;

  • Күрделі диаграммалар және графиктер.




жүктеу 2,2 Mb.

Достарыңызбен бөлісу:
1   ...   39   40   41   42   43   44   45   46   ...   118




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау