Куда копать?)

@Кирилл1000 · Регистрация: 05.05.2015

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

Добрый вечер. Подскажите пожалуйста, с помощью какие элементов можно реализовать данную программу? Мне необходимо сделать автостоянку. Первым пунктом нужно отобразить схематически автостоянку(т.е. как располагаются автомобили). Далее, мне нужно расположить автомобиль на свободное место(зеленый прямоугольник - свободные , красный - занятые места). Также, кол-во мест может измениться.
Пытался что-то придумать с помощью bitbtn, но не получается изменить его цвет. Может есть другие способы для создания такой схемы? (схема тоже может меняться). Но хотя бы скажите, куда копать).

@Teodor7 · 07.12.2016, 11:22

Я бы даже StringGrid присоветовал. Там можно номера паркующихся хранить (отображать)
А расцветка по OnDrawCell и массиву Busy типа Boolean

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
S:String;
begin
S:=Form1.StringGrid1.Cells[ACol,ARow];
if Busy[ACol,ARow] then begin
        Form1.StringGrid1.Canvas.Brush.Color:=clRed;
  end else begin
        Form1.StringGrid1.Canvas.Brush.Color:=clLime;
end;
Form1.StringGrid1.Canvas.FillRect(Rect);
Form1.StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,S);
end;

@Кирилл1000 · 07.12.2016, 11:26 **[ТС]**

Сообщение от krapotkin

но как обычно, хозяин - барин

Меняем цвет ячеек стрингрида - а если взять способ отсюда? Вполне ведь можно?

@Teodor7 · 07.12.2016, 11:28

Сообщение от Кирилл1000

а если взять способ отсюда?

Не работает. То есть работает один раз, пока не переткнешь в другую ячейку.

@Кирилл1000 · 07.12.2016, 11:29 **[ТС]**

Сообщение от Teodor7

Я бы даже StringGrid присоветовал.

Не увидел Ваше сообщение. Значит, более менее правильно думал.

Добавлено через 34 секунды

Сообщение от Teodor7

Не работает. То есть работает один раз, пока не переткнешь в другую ячейку.

Попробую Вашим способом.

@Кирилл1000 · 07.12.2016, 11:36 **[ТС]**

Сообщение от Teodor7

А расцветка по OnDrawCell и массиву Busy типа Boolean

Не могу разобраться с условием..

@krapotkin · 07.12.2016, 11:48

так вот Busy это и есть обращение к некоей модели данных
с целью узнать, занята эта ячейка или нет

@Кирилл1000 · 07.12.2016, 11:55 **[ТС]**

Сообщение от krapotkin

занята эта ячейка или нет

Это мне понятно. Не зря Teodor7 указал тип Boolean. В общем, не тратьте зря время. Спасибо.

@Teodor7 · 07.12.2016, 12:11

Глобальная переменная. Считается с нуля.
Busy[k,j]:=True; Если парковочное место k,j занято.
Понатыкать где-то в другом месте.

@Кирилл1000 · 07.12.2016, 12:15 **[ТС]**

Сообщение от Teodor7

Глобальная переменная. Считается с нуля.
Busy[k,j]:=True; Если парковочное место k,j занято.
Понатыкать где-то в другом месте.

Уже запутался. Спасибо за помощь. Не будем продолжать эту одностороннюю дискуссию, так сказать.

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

@Кирилл1000 1 / 1 / 0 Регистрация: 05.05.2015 Сообщений: 60

	Куда копать?) 06.12.2016, 18:38. Показов 1405. Ответов 28 Метки нет (Все метки) Добрый вечер. Подскажите пожалуйста, с помощью какие элементов можно реализовать данную программу? Мне необходимо сделать автостоянку. Первым пунктом нужно отобразить схематически автостоянку(т.е. как располагаются автомобили). Далее, мне нужно расположить автомобиль на свободное место(зеленый прямоугольник - свободные , красный - занятые места). Также, кол-во мест может измениться. Пытался что-то придумать с помощью bitbtn, но не получается изменить его цвет. Может есть другие способы для создания такой схемы? (схема тоже может меняться). Но хотя бы скажите, куда копать). Миниатюры 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	07.12.2016, 11:48
	так вот Busy это и есть обращение к некоей модели данных с целью узнать, занята эта ячейка или нет 0

@Teodor7 53 / 53 / 5 Регистрация: 22.11.2016 Сообщений: 268
	07.12.2016, 12:11
	Глобальная переменная. Считается с нуля. Busy[k,j]:=True; Если парковочное место k,j занято. Понатыкать где-то в другом месте. 0