Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема в заливке!


bkv ©   (2003-05-08 17:01:00) 

Мастера помогите, такая ситуация-
просто рисую в Bmp : TBitmap прямоугольник с заливкой
черным цветом:
Bmp.Canvas.Brush.Color:= clBlack;
Bmp.Canvas.Rectangle(10, 10, 100, 100);
и получаю полностью черный Bmp!
Подскажите что может повлиять на заливку всего Bmp черным цветом?


Deus   (2003-05-13 14:59:00) [1]

Блин, ну, как говорят, чудес не бывает.
пискселформат и размеры какие?


Добрый доктор   (2003-05-12 17:45:00) [2]

Самое главное не нервничать и успокоиться. И обратиться за помощью к квалифицированным мед-специалистам. И тогда они обязательно тебя вылечат и твой Delphi тоже. Вот помню был у меня случай один... Хотя, ладно, будем соблюдать врачебную тайну...


bkv   (2003-05-12 10:57:00) [3]

В TBitmap уже храниться черно- белое изображение, так что размеры заданы. И что интересно, если цвет заливки ставлю
Bmp.Canvas.Brush.Color:= clWhite;
Bmp.Canvas.Rectangle(10, 10, 100, 100); - то все нормально. Рисуется прямоугольник и заливается белым цветом, а если
Bmp.Canvas.Brush.Color:= clBlack, то весь TBitmap становиться черным!
Есть у кого-нибудь какие-либо соображения?


Плохой человек   (2003-05-08 18:08:00) [4]

2 bkv:

А ты задал размеры TBitmap??? Типа:

Bitmap.Width := 100;
Bitmap.Height := 100;


AlexT1000   (2003-05-08 18:05:00) [5]

убери Bmp.Monochrome:= true; в принципе я думаю тебе это не особо важно.
и еще
поставь
bmp.pixelformat := pf1bit;
или
bmp.pixelformat := pf24bit;


Axis_of_Evil   (2003-05-08 17:43:00) [6]

:>


bkv   (2003-05-08 17:41:00) [7]

В том - то и дело, что изначально в битмапе черно- белое изображение!


AlexT1000   (2003-05-08 17:39:00) [8]

у тебя изначально наверное битмап черный.
закрась его белым сначала
Bmp.Canvas.Brush.Color:= clWhite;
Bmp.Canvas.Rectangle(0, 0, Bmp.Width, Bmp.Height);
Bmp.Canvas.Brush.Color:= clBlack;
Bmp.Canvas.Rectangle(10, 10, 100, 100);


bkv   (2003-05-08 17:17:00) [9]

Да еще:
Bmp.Monochrome:= true;
Bmp.HandleType:=bmDIB;

если я меняю Bmp.HandleType:=bmDDB то заливка происходит нормально
- заливается указанный прямоугольник а не весь BMP;
Почему так?


Наверх

Титульная страница Поиск, карта сайта Написать письмо