|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.10.2007, 00:00 | #1 |
Пользователь
Регистрация: 21.07.2007
Сообщений: 13
|
TPaintBox; Сменить цвет...
Вопрос по TPaintBox до простого смешной!..
Не получается сменить цвет на белый. Подскажите, если не затруднит: как это делается? В Инспекторе объектов меняю Color, но PaintBox1 остается быть прежним. Код:
|
16.10.2007, 01:07 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Дык clWindow - это не белый, белый, он clWhite...
|
16.10.2007, 01:14 | #3 |
Пользователь
Регистрация: 21.07.2007
Сообщений: 13
|
Ничего не выходит... Только попробовал... PaintBox не изменил цвет...
Словом, не могу разобраться: как цвет белым сделать. PaintBox1.Color := clWhite; не "белится". |
16.10.2007, 01:32 | #4 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
И не изменится. PaintBox лишь содержит канву, на которой и происходит рисование. Канва сама по себе цвета не имеет. Есть лишь цвет карандаша и кисти. Поэтому "забелить" ее можно лишь нарисовав белый прямоугольник в размер PaintBox.
|
16.10.2007, 01:40 | #5 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
PaintBox1.Canvas.Brush.Color:=clWhi te;
PaintBox1.Canvas.FillRect(PaintBox1 .Canvas.ClipRect); |
16.10.2007, 10:37 | #6 |
Пользователь
Регистрация: 21.07.2007
Сообщений: 13
|
to mihali4
and Баламут Спасибо! Спасибо! Я о таком нюансе не знал... и даже не догадывался! Дня два, убил на то, чтобы в Инспекторе объектов изменить свойство Color на любой иной цвет! Пока писал сообщение, попутно вопрос родился. Если не трудно будет опять, можете растолковать: для чего тогда в TPaintBox пнредусмотрено свойство Color? Как им пользуются? В Инспекторе, в частности... Ведь для чего-то оно там есть! Хотя бы в двух слбовах... можете пояснить? Спасибо заранее |
16.10.2007, 11:38 | #7 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
А вы откройте хелп дельфи по пэйнтбоксу и увидите, что у него одно (!!!) единственное ключевое свойство - канва, все остальные - унаследованы от TControl и т.д. вниз по иерархии.
У простого TButton аналогично есть свойство Color, также унаследованное от TControl, но оно у TButton не реализовано и поэтому не отображается в инспекторе. Почему для TPaintBox не убрали из инспектора? А это не единственный ляп, который тянется еще с первой Дельфи. А вы сходите на сайт Борланда и закатите им скандал... Можно и моральным вредом припугнуть... Если, конечно, у вас Дельфи не пиратская... |
16.10.2007, 14:01 | #8 | |
Пользователь
Регистрация: 21.07.2007
Сообщений: 13
|
to mihali4
Спасибо! Я как раз и обратил внимание на это.... Цитата:
Возможно, в Хелпе, про этот нюанс что-нибудь и пишут. Нужно просто читать... Теперь, вот, знаю... Спасибо Вам за разъяснение. Я, сам, до этого бы открытия, не дошёл! Я пользую не ператскую версию. Скачал на сайте официальную бесплатную Турбо Делфи. Так что, могу к ним на сайт заходить... |
|
26.10.2007, 12:48 | #9 |
Пользователь
Регистрация: 26.10.2007
Сообщений: 27
|
обновить
Спробуй його обновити (PaintBox1.refresh)
|
27.10.2007, 23:39 | #10 |
Пользователь
Регистрация: 21.07.2007
Сообщений: 13
|
to VVk
Ничего с Рефпешом не получилось....И оставил то, что было предложено выше: procedure TMyForm1.PaintBox1Paint(Sender: TObject); begin PaintBox1.Canvas.Brush.Color := clWindow; PaintBox1.Canvas.FillRect(PaintBox1 .Canvas.ClipRect); end; Работает.... А можете с Рефрешем фрагмент кода привести?.. Для себя, хотел бы и эту возможность изучить-увидеть. ИМХО: по моему, с Рефрешом ничего не получится... не закрасит... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сменить язык в Паскаль 7.0 ??? раньше работало, сейчас не работает! | koir | Помощь студентам | 2 | 19.06.2008 21:32 |
сменить цвет линии в компоненте TChart | Blondinka | Общие вопросы Delphi | 1 | 24.12.2007 15:52 |
Сменить значок программы | BETONOMESHALKA | Общие вопросы Delphi | 8 | 14.11.2007 21:22 |
Как сменить регистр текста в TMemo? | Алексей_C | Общие вопросы Delphi | 3 | 30.10.2007 15:29 |
Как программно сменить icc-профиль | SJMS | Общие вопросы Delphi | 0 | 28.02.2007 19:53 |