stify"> Roller , GroupIndex = 1, Tag = 3), SpeedButton5 (Cuption = Text , GroupIndex = 1, Tag = 4), Label2 (Caption = Text ), Label3 (Caption = Style ), Button5 (Caption = Font ), Edit1 (Text = ), FontDialog1 (Options.fdEffects = false - відключення можливості налаштування кольору шрифту, а також вибору режиму підкреслення і перекреслення тексту), ComboBox1 і ComboBox2 (Style = csOwnerDeawFixed, Text = , ItemIndex = 0).
Для кнопок SpeedButton подія OnClick визначте як SpeedButton1Click.
. Четвертим режимом малювання буде В«ВаликВ» (Roller). Цей режим дозволяє заливати поточним кольором фону області, обмежені лініями інших кольорів. Заливка проводиться при клацанні мишею всередині потрібній області. p align="justify"> Внесемо зміна в метод Image1MouseDown:
if ssAlt in Shift thenButton of: NewColor (Statictext1, Pixels [x, y]);: NewColor (StaticText2, Pixels [x, y]); image1.Tag = 3 then (x, y , pixels [x, y], fsSurface)
23. П'ятий режим - додавання в малюнок тексту. У метод Image1MouseDown додамо: image1.Tag = 3 then (x, y, pixels [x, y], fsSurface) if image1.tag = 4 then TextOut (x, y, edit1.Text);
Створимо обробник OnEnter для Edit1:
SpeedButton5.Down: = true;. Tag: = 4;
У метод ColorGrid1Change додайте оператори:
image1.Canvas.Pen.Color: = shape1.Pen.Color;. Canvas.Font.Color: = shape1.Pen.Color;
Новий режим дозволяє поміщати на зображення текст, що міститься в полі введення Edit1. Текст вставляється при натисненні лівої кнопки миші, місце натискання визначає початкову позицію тексту. Колір тексту співпадає з поточним фоном. p align="justify">. Натискання кнопки Font дозволяє змінити шрифт вставляемой написи. p align="justify"> Для кнопки Button5 напишемо обробник OnClick
with FontDialog1 do: = Image1.Canvas.Font; execute then.Canvas.Font: = font;;
. Занесемо в властивість Items ComboBox1 6 рядків, які містять числа 0,1,2,3,4,5. У компонент ComboBox2 занесемо 8 рядків (0,1,2,3,4,5,6,7). p align="justify"> Опишемо OnDrawItem для ComboBox1:
with comboBox1.Canvas, Rect do
Створимо для ComboBox1 обробник OnChange:
with ComboBox1, Shape1.pen do: = TPenStyle (StrToInt (Items [ItemIndex]));. Canvas.Pen.Style: = Style; Change (Sender);;
Аналогічно поступимо з ComboBox2: для ComboBox2: ...
