Mi történik szerkesztésével (hasonlóság painta, de kevesebb funkciót) at
oktatás
Nehézség: Nyugtalan
Valami ehhez hasonló, és helyezze az összes komponens
Hozzon létre egy új formája, leeresztve alkotják a következő összetevőkből áll: fényképek, ColorBox (tab kiegészítő), OpenPictureDialog, SaveDialog (a Párbeszédpanelek lapon), négy „Button'a és Edit (Normál lapon). Nevezze meg a gombot egyszer a „Mentés”, „Open”, „Törlés”, „Töltsétek meg a háttérben.”
Ebben a lépésben adja meg a „Save” a következő kódot:
ha SaveDialog1.Execute majd
Image1.Picture.Bitmap.SaveToFile (SaveDialog1.FileName);
A harmadik lépés az, hogy adja meg a „Megnyitás” gombra az alábbi kódot:
var
bmp: TBitmap;
kezdődik
BMP: = TBitmap.Create;
ha OpenPictureDialog1.Execute majd
kezdődik
bmp.LoadFromFile (OpenPictureDialog1.FileName);
Image1.Canvas.Draw (10,10, BMP);
végén;
végén;
Ez az a terület, és hozzá kell adni ezt a kódrészletet
Add hozzá a következő fő formája a Var:
var
Form1: TForm1;
gg: logikai;
Készítsen MouseDown rakodók fényképek komponenst és írjon a következő:
gg: = true;
image1.Canvas.MoveTo (x, y);
Készítsen MouseMove rakodók fényképek komponenst és írjon a következő:
ha GG majd
kezdődik
Image1.Canvas.Pen.Color: = ColorBox1.Selected;
Image1.Canvas.Pen.Width: = StrToInt (EditSize.Text);
Image1.Canvas.LineTo (x, y);
végén;
Hozzon létre egy MouseUp felvezető fényképek komponenst és írjon a következő:
gg: = false;
megbeszélés
Elvileg egy jó útmutató. Hasznos kezdőknek. De vannak hiányosságok: Töltsük a háttérben, és tiszta gombok vannak, de nem történik intézkedés. Vibiraem vonalvastagság edit'om - kényelmetlen, annál több a probléma a nevek EditSize -?
Ha lehet - jobb ,? Ugyanebben nem nehéz.
Nos a „szerkesztés” om kényelmetlen lehet, csak mi nem egy lehetőség?)
EditSize - tulajdonság a szerkesztés, csak a szokásos átnevezni.
utasításkérésre
Nem találja a lépésről lépésre?
Lehetőség van arra, hogy néhány, a látogatók képes lesz segíteni. Hagyja el kérését most, ha úgy gondolja, hogy ez a téma nem tartozik a mi projektünket!