După crearea meniului, închideți caseta de dialog.
Din fila Win32, preluați componenta ToolBar
Specificați proprietățile pentru această componentă:
AutoSize false
BorderWidth 3
Și mutați această componentă în partea stângă a proiectului, redimensionați-o. Această componentă va fi o bara de instrumente pentru selectarea obiectelor de desen.
Adăugați patru butoane pentru componenta ToolBar, pentru a face acest lucru, selectați NewButton din meniul contextual. Pentru fiecare buton, setăm aceeași dimensiune: selectați toate butoanele și setați valorile înălțime și lățime în inspectorul de obiecte la 50.
Vom pune o imagine pe butoane, pentru a ști ce instrument de desenat să faceți.
Pentru aceasta, plasați componenta ImageList pe fila Win32 din formular. Mai întâi, în componenta ImageList din Inspectorul de obiecte, setați valorile înălțimii și lățimii la 50 (CUM ȘI PENTRU BUTOANE). Faceți dublu clic pe ImageList și adăugați (Adăugați.) Imaginile terminate.
Acum, vom conecta aceste cifre la butoanele: Pentru componenta ToolBar pentru proprietatea Imagini, selectați valoarea ImageList1. Va apărea o imagine a butoanelor.
Din fila Mostre, luați componenta ColorGrid și setați următoarea proprietate pentru aceasta:
GridOrdering Go8 * 2
Pentru dialogul cu utilizatorul (pentru deschiderea și salvarea fișierelor) sunt necesare încă două componente SavePictureDialog și OpenPictureDialog, precum și ColorDialog din fila Dialoguri.
Creați elementul de meniu Paletă și ștergere din meniul Proprietăți.
Etapa 2: Crearea codului programului.
Creați dispozitive de tratare a evenimentelor pentru meniul Deschidere și Salvare.
procedura TForm1.N2Click (expeditor: TObject);
începe
dacă OpenDialog1.Execute apoi
image1.Picture.LoadFromFile (OpenDialog1.filename);
se încheie;
procedura TForm1.N3Click (expeditor: TObject);
începe
Dacă SaveDialog1.Execute apoi
image.savetofile (SavePictureDialog1.fileName);
se încheie;
Creați un handler de evenimente pentru ca meniul să fie șters.
procedura TForm1.N6Click (expeditor: TObject);
începe
image1.Canvas.Brush.Color: = clWhite;
image1.Canvas.FillRect (ClientRect);
pen1: = false;
brush1: = false;
se încheie;
Creați un handler de evenimente pentru meniul paletei
procedura TForm1.N5Click (expeditor: TObject);
începe
Dacă ColorDialog1.Execute apoi
cl: = ColorDialog1.color;
se încheie;
Selectați culoarea din paletă
procedura TForm1.ColorGrid1Click (expeditor: TObject);
începe
cl: = ColorGrid1.FourgroundColor;
se încheie;
Instrumente de programare pentru desen.
Să descriem patru variabile logice care sunt responsabile pentru apăsarea butoanelor cu unelte, adică pentru alegerea unui instrument de desen:
Pen1 - pentru a selecta un instrument creion;
Brush1 - pentru a selecta instrumentul de umplere;
Rect1 - pentru a selecta dreptunghiul instrumentului;
Circl1 - pentru a selecta cercul de instrumente.
Și, de asemenea, dragul variabil auxiliar (tip boolean).
var
Form1: TForm1;
pen1, perie1, rect1, circl1: boolean;
cl: TColor;
drag: boolean;
procedura TForm1.Image1MouseDown (expeditor: TObject; buton: TMouseButton;
Schimbare: TShiftState; X, Y: Integer);
începe
dacă pen1 atunci
începe
image1.Canvas.Pen.Color: = cl;
drag: = adevărat;
image1.Canvas.MoveTo (x, y);
se încheie;
dacă este perie
începe
image1.Canvas.Brush.Color: = cl;
image1.Canvas.FillRect (ClientRect);
se încheie;
se încheie;
procedura TForm1.Image1MouseMove (expeditor: TObject; Shift: TShiftState; X,
Y: Integer);
începe
dacă trageți apoi image1.Canvas.LineTo (x, y);
se încheie;
procedura TForm1.Image1MouseUp (expeditor: TObject; buton: TMouseButton;
Schimbare: TShiftState; X, Y: Integer);
începe
drag: = false;
se încheie;
Lansați aplicația.
procedura TForm1.ToolButton3Click (expeditor: TObject);
începe
pen1: = adevărat;
Brush1: = false;
rect1: = false;
circl1: = false;
se încheie;
procedura TForm1.ToolButton4Click (expeditor: TObject);
începe
pen1: = false;
Brush1: = adevărat;
rect1: = false;
circl1: = false;
se încheie;
procedura TForm1.ToolButton1Click (expeditor: TObject);
începe
pen1: = false;
Brush1: = false;
rect1: = adevărat;
circl1: = false;
se încheie;
procedura TForm1.ToolButton2Click (expeditor: TObject);
începe
pen1: = false;
Brush1: = false;
rect1: = false;
circl1: = adevărat;
se încheie;