Létrehozása egy grafikus szerkesztő delphi, tudomány, diák
Létrehozása menüben a párbeszédablak bezárásához.
A kapaszkodó fül Win32 komponens ToolBar
Állítsa be a tulajdonságokat ennek az összetevőnek:
autoSize' hamis
BorderWidth 3
És mozgassa a komponens a bal része a projektnek, méretének megváltoztatásával. Ez az összetevő eszköztár kiválasztásának rajzobjektumokat.
Mi hozzá négy nyomógomb eszköztár komponens ehhez a helyi menüben válassza NewButton csapat. Minden gomb, kérje az azonos méretű: Az összes gomb a Tárgy Inspector kérni magasság és a szélesség egyenlő 50.
Tedd a gomb rajz, ahhoz, hogy tudjuk, hogyan kell egy rajz eszköz.
Ahhoz, hogy ezt a formát ImageList alkatrész Win32 fülre. Kezdjük azzal, hogy ImageList komponens az Object Inspector, állítsa be a szélesség és a magasság egyenlő 50 (valamint a gombok). Kattintson duplán a ImageList és adjunk hozzá (add.) Kész rajzokat.
Most ezek a számok azt társítani a gombok: Az eszköztár komponens az Images tulajdonát, válasszon ImageList1. Rajz a gombok jelennek meg.
A mintákat lapon vegye ColorGrid összetevőt, és állítsa a következő tulajdonságokkal is:
GridOrdering Go8 * 2
A párbeszéd a felhasználóval (a fájlok megnyitása és elmentése) igényel további két komponens SavePictureDialog és OpenPictureDialog, valamint ColorDialog párbeszédablakok fülre.
Hozzon létre egy menü Tulajdonságok paletta és a Törlés gombra.
2. szakasz: sodaniya kódot.
Hozzunk létre eseménykezelőkkel a menü, Megnyitás és Mentés.
eljárás TForm1.N2Click (Sender: TObject);
kezdődik
ha OpenDialog1.Execute majd
image1.Picture.LoadFromFile (OpenDialog1.filename);
végén;
eljárás TForm1.N3Click (Sender: TObject);
kezdődik
Ha SaveDialog1.Execute majd
image.savetofile (SavePictureDialog1.fileName);
végén;
Hozzunk létre egy eseménykezelő a menü tisztítható.
eljárás TForm1.N6Click (Sender: TObject);
kezdődik
image1.Canvas.Brush.Color: = clWhite;
image1.Canvas.FillRect (ClientRect);
pen1: = false;
brush1: = false;
végén;
Hozzunk létre egy eseménykezelő a paletta menüjének
eljárás TForm1.N5Click (Sender: TObject);
kezdődik
Ha ColorDialog1.Execute majd
Cl: = ColorDialog1.color;
végén;
A választott szín a palettán
eljárás TForm1.ColorGrid1Click (Sender: TObject);
kezdődik
Cl: = ColorGrid1.ForegroundColor;
végén;
Programozási eszközök rajzoláshoz.
Bemutatjuk négy logikai változók felelős a gombok megnyomásával az eszközöket, azaz kiválasztására rajzeszköz:
Pen1 - válassza ki a ceruza eszközzel;
Brush1 - kiválaszthatjuk töltő eszköz;
Rect1 - válassza ki a téglalap eszközt;
Circl1 - válassza ki a kör eszközzel.
És, mint egy kiegészítő változó húzás (logikai típusú).
var
Form1: TForm1;
pen1, brush1, rect1, circl1: logikai;
cl: TColor;
drag: logikai;
eljárás TForm1.Image1MouseDown (Sender: TObject; gomb: TMouseButton;
Shift: TShiftState; X, Y: Egész szám);
kezdődik
ha pen1 majd
kezdődik
image1.Canvas.Pen.Color: = Cl;
húzza: = true;
image1.Canvas.MoveTo (x, y);
végén;
ha brush1 majd
kezdődik
image1.Canvas.Brush.Color: = Cl;
image1.Canvas.FillRect (ClientRect);
végén;
végén;
eljárás TForm1.Image1MouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Egész szám);
kezdődik
ha húzza át, majd image1.Canvas.LineTo (x, y);
végén;
eljárás TForm1.Image1MouseUp (Sender: TObject; gomb: TMouseButton;
Shift: TShiftState; X, Y: Egész szám);
kezdődik
húzza: = false;
végén;
Az alkalmazás futtatásához.
eljárás TForm1.ToolButton3Click (Sender: TObject);
kezdődik
pen1: = true;
Brush1: = false;
rect1: = false;
circl1: = false;
végén;
eljárás TForm1.ToolButton4Click (Sender: TObject);
kezdődik
pen1: = false;
Brush1: = true;
rect1: = false;
circl1: = false;
végén;
eljárás TForm1.ToolButton1Click (Sender: TObject);
kezdődik
pen1: = false;
Brush1: = false;
rect1: = true;
circl1: = false;
végén;
eljárás TForm1.ToolButton2Click (Sender: TObject);
kezdődik
pen1: = false;
Brush1: = false;
rect1: = false;
circl1: = true;
végén;