Оцветете платното

Как мога да нарисувам правоъгълник върху платното с някакъв цвят? Например само рамката е нарисувана в червено: Form1.Canvas.Pen.Color := clRed; Form1.Canvas.Rectangle(10, 10, 300, 200);

и трябва напълно да боядисам върху правоъгълника с червен цвят, опитах: Form1.Canvas.Brush.Style := bsSolid; vseravno рамка е съставен. Помощ плиз

и Brush.Color, Brush.Style. и, разбира се, TCanvas+F1 ;>

Нищо не е нарисувано =( Form1.Canvas.Pen.Color := clRed; Form1.Canvas.FillRect(Rect(10, 10, 300, 100));

Form1.Canvas.Pen.Color := clRed; променен на Form1.Canvas.Brush.Color := clRed; и се оказа =))))

> Form1.Canvas.Pen.Color := clRed; променен на Form1.Canvas.Brush.Color > :=clRed; и се оказа =))))Трябваше да се прочете пост номер [2]

Не! Трябвашевнимателнода прочета пост номер [2]! И с това в Интернет сега има проблеми. IMHO. Не напразно все по-често искат примери за изходни кодове. Никой не иска да мисли. Все по-често те предпочитат да използват "метода на мушкане" в чужди източници.

Не. И аз също веднъж не презирах този метод. Но тогава документацията беше 0 запетая 0 и 0 и 0 и.

Да, методът на мушкане е нещо ужасно (сякаш Централният комитет забрани документацията от пиянски махмурлук) :(

Не съм казал на ЦККПСС. Като цяло съм :) Методът на мушкане е нормален, когато няма информация. Но когато трябва да натиснете FillRect + F1 и да прочетете (на същото място!) За цвета на четката "и тогава. Не говоря за странното селективно четене на моя кратък (в 2 оскъдни изречения!) Пост, който също говореше за четката и след това СЛУЧАЙНО продължава да бърка в писалката. :(

---