Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Закрасить Canvas цветом [D7, WinXP]

sda © (2006-04-22 00:51:00)
Как мне закрасить прямоугольник на канве каким-нибудь цветом? Например так рисуется только рамка красным:
Form1.Canvas.Pen.Color := clRed; Form1.Canvas.Rectangle(10, 10, 300, 200);

а мне нужно полностью закрасить прямоугольник красным цветом, пробовал: Form1.Canvas.Brush.Style := bsSolid; всеравно рамка рисуется... Помогите плиз

Джо (2006-04-22 03:22:00) [1]
> [10] Германн © (22.04.06 03:20)
> Серёга! Кончай с Бодуном! Он - твой враг.

Чур меня! Уже неделю и не вдыхал сих благославенных паров :)
Сорри за флуд, накатило.

Германн (2006-04-22 03:20:00) [2]

> Джо © (22.04.06 03:13) [9]
>
> Я не сказал ЦККПСС. Я общо :)
> Метод тыка нормален, когда информации нет. Но когда нужно
> нажать FillRect+F1 и прочитать (там же!) про цвет Brush'а,
> то... Я уж не говорю о странном выборочном прочтении моего
> коротенького (в 2 куцых предложения!) поста, в котором также
> говорилось о Brush и после этого НАУГАД продолжать тыкаться
> в Pen... :(
>

Серёга! Кончай с Бодуном! Он - твой враг.

Джо (2006-04-22 03:13:00) [3]
Я не сказал ЦК КПСС. Я общо :)
Метод тыка нормален, когда информации нет. Но когда нужно нажать FillRect+F1 и прочитать (там же!) про цвет Brush'а, то... Я уж не говорю о странном выборочном прочтении моего коротенького (в 2 куцых предложения!) поста, в котором также говорилось о Brush и после этого НАУГАД продолжать тыкаться в Pen... :(

Германн (2006-04-22 03:05:00) [4]

> Джо © (22.04.06 02:50) [7]
>
> Да, метод тыка это ужасная вещь (как будто докумментацию
> ЦК запретил с пьяного бодуна) :(

Ты, имхо, зря насчёт "ужасная" и на счёт ЦК. (Пьяный бодун, надеюсь не про себя молвишь?)
Метод тыка - вполне нормальный метод, когда неизвестно с какого боку подступить к задаче.
А насчёт документации, то её всегда было меньше чем нужно! Но чем дальше, тем её больше. Хотя, имхо, иногда она ещё и тем хуже!

Джо (2006-04-22 02:50:00) [5]
Да, метод тыка это ужасная вещь (как будто докумментацию ЦК запретил с пьяного бодуна) :(

Германн (2006-04-22 02:43:00) [6]

> Джо © (22.04.06 01:04) [5]
>
> > Form1.Canvas.Pen.Color := clRed; поменял на Form1.Canvas.
> Brush.Color
> > := clRed; и получилось =))))
>
> Нужно было прочитать пост номер [2]
>

Не! Нужно было вдумчевопрочитать пост номер [2]! А с этим в ИНете нынче проблемы. Имхо.
Недаром всё чаще просят примеры исходников. Никто не хочет думать. Всё чаще предпочитают использовать "метод тыка" в чужих исходниках.

Не. И я тоже, когда-то не брезговал сим методом. Но тогда документации было 0 запятая 0 и 0 и 0 и...

Джо (2006-04-22 01:04:00) [7]
> Form1.Canvas.Pen.Color := clRed; поменял на Form1.Canvas.Brush.Color
> := clRed; и получилось =))))

Нужно было прочитать пост номер [2]

sda (2006-04-22 00:57:00) [8]
Form1.Canvas.Pen.Color := clRed; поменял на Form1.Canvas.Brush.Color := clRed; и получилось =))))

sda (2006-04-22 00:55:00) [9]
Вообще ничего не рисуется =(
Form1.Canvas.Pen.Color := clRed; Form1.Canvas.FillRect(Rect(10, 10, 300, 100));

Джо (2006-04-22 00:53:00) [10]
и Brush.Color, Brush.Style.
ну, и, конечно, TCanvas+F1 ;>

Джо (2006-04-22 00:52:00) [11]
FillRect

Наверх

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