Създаване на меню, затворете диалоговия прозорец.
С таб вземете Win32 компонент лентата с инструменти
Задайте свойствата на този компонент:
AutoSize фалшива
BorderWidth 3
И да се премести на компонента в лявата част на проекта, промяна на размера. Този компонент ще лентата с инструменти за избор на графични обекти.
Ние добавяме четири бутона за лентата с инструменти компонент на тази в контекстното меню изберете екип NewButton. За всеки бутон, да зададете същите размери: Избери всички бутони в инспектора на Object попитам височина и ширина, равна на 50.
Сложете върху чертежа бутона, за да се знае как да се вземат инструмент за рисуване.
За да поставите това в раздела форма ImageList компонент Win32. Да започнем с това, ImageList компонент в инспектора на обект, разположен на ширина и височина, равна на 50 (както и за бутоните). Кликнете два пъти върху ImageList и добавете (Добавяне). Завършени рисунки.
Сега тези цифри, които свързваме с помощта на бутоните: В лентата с инструменти компонент на имуществото на изображения, изберете ImageList1. Въз основа на бутоните се появяват.
В раздела Пробите се вземат ColorGrid компонент и задайте следните свойства за това:
GridOrdering Go8 * 2
За диалог с потребителя (за отваряне и съхраняване на файлове) се нуждае от повече двукомпонентен SavePictureDialog и OpenPictureDialog, както и с раздела ColorDialog диалогови прозорци.
Създаване на меню Имоти палитра и натиснете Delete.
Етап 2: sodaniya код.
Нека създадем обработват събитие за менюто, за да отваря и съхранява.
процедура TForm1.N2Click (Sender: TObject);
започвам
ако OpenDialog1.Execute след това
image1.Picture.LoadFromFile (OpenDialog1.filename);
приключи;
процедура TForm1.N3Click (Sender: TObject);
започвам
Ако след това SaveDialog1.Execute
image.savetofile (SavePictureDialog1.fileName);
приключи;
Нека създадем манипулатор на събитие за менюто, за да почисти.
процедура TForm1.N6Click (Sender: TObject);
започвам
image1.Canvas.Brush.Color: = clWhite;
image1.Canvas.FillRect (ClientRect);
pen1: = фалшива;
brush1: = фалшива;
приключи;
Нека да създадем манипулатор събитие за менюто палитра
процедура TForm1.N5Click (Sender: TObject);
започвам
Ако след това ColorDialog1.Execute
CL: = ColorDialog1.color;
приключи;
Изборът на цвят в палитрата
процедура TForm1.ColorGrid1Click (Sender: TObject);
започвам
CL: = ColorGrid1.ForegroundColor;
приключи;
Програмиране инструменти за рисуване.
Ние описват четири логически променливи, отговорни за натискане на бутоните с инструментите, т.е. за избор на инструмента за рисуване:
Pen1 - за да изберете инструмента молив;
Brush1 - за да изберете пълнене инструмент;
Rect1 - за да изберете инструмента правоъгълник;
Circl1 - за да изберете инструмента кръг.
И като спомагателна променлива съпротивление (тип булева).
Var
Form1: TForm1;
pen1, brush1, rect1, circl1: Булева;
CL: TColor;
плъзгане: булева;
процедура TForm1.Image1MouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: цяло число);
започвам
ако pen1 след това
започвам
image1.Canvas.Pen.Color: = CI;
плъзгане: = вярно;
image1.Canvas.MoveTo (х, у);
приключи;
ако brush1 след това
започвам
image1.Canvas.Brush.Color: = CI;
image1.Canvas.FillRect (ClientRect);
приключи;
приключи;
процедура TForm1.Image1MouseMove (Sender: TObject; Shift: TShiftState; X,
Y: цяло число);
започвам
ако плъзгане след image1.Canvas.LineTo (х, у);
приключи;
процедура TForm1.Image1MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: цяло число);
започвам
плъзгане: = фалшива;
приключи;
Стартирайте приложението.
процедура TForm1.ToolButton3Click (Sender: TObject);
започвам
pen1: = вярно;
Brush1: = фалшива;
rect1: = фалшива;
circl1: = фалшива;
приключи;
процедура TForm1.ToolButton4Click (Sender: TObject);
започвам
pen1: = фалшива;
Brush1: = вярно;
rect1: = фалшива;
circl1: = фалшива;
приключи;
процедура TForm1.ToolButton1Click (Sender: TObject);
започвам
pen1: = фалшива;
Brush1: = фалшива;
rect1: = вярно;
circl1: = фалшива;
приключи;
процедура TForm1.ToolButton2Click (Sender: TObject);
започвам
pen1: = фалшива;
Brush1: = фалшива;
rect1: = фалшива;
circl1: = вярно;
приключи;
Свързани статии