Властивості пензля в delphi, delphi, компоненти delphi, вихідні коди delphi

Властивості пензля в Delphi

Ми поки не чіпали картинки, тому це властивість розглядатися тут не буде. Єдине, що можна зробити, - написати невеликий приклад, за яким ви зможете повернутися до властивості і розібратися самостійно. Код використання властивості Bitmap показаний в лістингу 12.2. Якщо ж щось не зрозуміло, то не турбуйтеся, клас TBitmap - це окрема тема, яка буде розглянута пізніше.

Bitmap: TBitmap; begin

Bitmap: = TBitmap.Create; // Створюється картинка try

Bitmap.LoadFromFile ( 'MyBitmap.tap'); // Завантажується картинка

Form1.Canvas.Brush.Bitmap: = Bitmap; // Присвоюється в якості фону

Form1.Canvas.Rectangle (0,0,100 / 100); // Вимальовується квадрат finally

Form1.Canvas.Brush.Bitmap: = nil; // обнуляє фон

Bitmap.Free; // Знищується картинка

• color - так само як і у олівця, у кисті теж може бути свій колір.
• Handle - такий же покажчик, як і у олівця, але на кисть.
• style-стиль фону. Тут можуть бути наступні значення: bsSolid, bsciear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross.

Ha рис. 12.5 ви можете побачити графічне відображення кожного з стилів. Тепер перейдемо до практичної частини роботи з пензлем і напишемо невеликий

приклад. Для початку створіть новий проект. Як і в попередньому прикладі, створимо обробник події OnPaint для форми, щоб по цій події виробляти малювання. У обробнику напишемо вміст лістингу:

procedure TForm1.FormPaint (Sender: TObj ect);