Надо сделать этот код для картинки в WinForm

08.10.2021, 09:32. Показов 459. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

uses GraphAbc;
var
  p:Picture;
  x,y:integer;
 
procedure drrect(c:color);
begin
  SetBrushColor(c);
  setpencolor(c);
  FillRectangle(x,y,x+10,y+10);
end;
 
 
procedure MoveRect(Key:Integer);
begin
  LockDrawing;
  drrect(clwhite);
  case Key of
    VK_Escape:halt;
    Vk_Left:if x>0 then x:=x-5;
    VK_Right:if x<Window.Width-10 then x:=x+5;
    VK_Up:if y>0 then y:=y-5;
    VK_Down:if y<window.Height-10 then y:=y+5;
  end;
  drrect(clblack);
  UnlockDrawing;
end;  
begin
  OnKeyDown:=MoveRect;
  setwindowsize(640,480);
  ClearWindow;
  x:=Window.width div 2;y:=window.Height div 2;
  drrect(clblack);
  repeat
  until false;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.10.2021, 09:32

Ответы с готовыми решениями:

Есть код, надо сделать так, чтобы я мог указать путь файлу, который будет установлен на рабочий. И это все надо сделать в формах
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data;...

Можно ли этот код сделать безопасным для браузеров без поддержки calc()?
Добрый день, уважаемые мастера! Абстрагировавшись от конкретной задачи, суть вопроса в следующем:...

Надо что бы этот код вводил студентов и присваивал им id
Надо что бы этот код вводил студентов и присваивал им id .. function Human(name) {...

Как сделать подобное в двухмерном массиве? Сколько пытаюсь, не выходит оптимизировать этот код для двухмерного массива
Код в одномерном массиве #include <iostream> #include <stdlib.h> #include <iomanip> #include...

Как работает этот код? И как сделать проверку и замену для столбца?
#include <stdio.h> #include <stdlib.h> #include <string.h> #define ROWS 5 #define COLS 3 ...

	08.10.2021, 09:32

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.10.2021, 09:32

Помогаю со студенческими работами здесь

Как сделать Skin для WinForm
Ситуация следующая: Есть готовое приложение на WinForms, как к нему сделать красивый скин? Знаю...

Нужно сделать этот код с процедурой
Нужно сделать этот код с процедурой.const n=10; var i:integer; a,b,c:array of integer; begin...

Javascript-код для вывода дерева элементов страницы, с которой этот код запущен
Всем привет. Возникла трудность при изучении javascript, а именно с темой, связанной с DOM. Не могу...

Как упростить, сделать лучше этот код
import random L1 = random.randint(0,24) R1 = random.randint(0,24) L2 = random.randint(25,49)...

Нужно сделать этот код с динамическим массивом
#include<iostream> #include<ctime> using namespace std; void main() { srand(time(0));...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх