![]() |
![]() |
abv |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
Есле у кого-то есть какая-нибудь инфа по работе с графикой в Free Pascal, скиньте плиз. Т.к. отличается работа с графикой во Фри паск, от Турбо паск.
|
![]() ![]() |
Altair |
![]()
Сообщение
#2
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
попробуй так:
Код {$APPTYPE GUI} {$MODE OBJFPC} uses graphix,gxcrt; BEGIN InitGraphiX(ig_col16,ig_col16); SetModeGraphiX(640,480,ig_col16); bar(0,0,getmaxX,getmaxY,10); rectangle(50,50,getmaxX-50,getmaxY-50,0); readkey; END. Это я к тому, что: 1. используй везде ig_col<БИТЫ> как я показал - так надежнее. 2. возможно у тебя перехватывала консоль readkey! надо включить без консоли: $APPTYPE GUI -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
![]() |
Текстовая версия | 25.07.2025 23:38 |