instrucție
Dificultate: Neliniștit
Ceva de genul asta și puneți toate componentele
Creați un formular nou, lasa in jos pentru a forma următoarele componente: Imagine, ColorBox (fila suplimentară), OpenPictureDialog, SaveDialog (fila Dialoguri), patru „Button'a și Edit (fila Standard). Redenumiți butonul o dată pentru a „Save“, „Open“, „Clear“, „Umple fundalul.“
În această etapă intră în „Salvați“ următorul cod:
în cazul în care SaveDialog1.Execute atunci
Image1.Picture.Bitmap.SaveToFile (SaveDialog1.FileName);
Al treilea pas este de a introduce pe butonul „Open“ următorul cod:
var
bmp: TBitmap;
începe
bmp: = TBitmap.Create;
în cazul în care OpenPictureDialog1.Execute atunci
începe
bmp.LoadFromFile (OpenPictureDialog1.FileName);
Image1.Canvas.Draw (10,10, bmp);
se încheie;
se încheie;
Este în acest domeniu și trebuie să adăugați această bucată de cod
Adăugați următoarele la formularul principal în Var:
var
Form1: TForm1;
gg: boolean;
Creați MouseDown stivuitoare de componentă a imaginii și să scrie următoarele:
gg: = true;
image1.Canvas.MoveTo (x, y);
Creați mousemove stivuitoare de componentă a imaginii și să scrie următoarele:
în cazul în care Gg atunci
începe
Image1.Canvas.Pen.Color: = ColorBox1.Selected;
Image1.Canvas.Pen.Width: = StrToInt (EditSize.Text);
Image1.Canvas.LineTo (x, y);
se încheie;
Crearea unui handler MouseUp de componentă a imaginii și să scrie următoarele:
gg: = false;
discuție
În principiu, un bun ghid. Util pentru incepatori. Dar există unele neajunsuri: Umple fundalul și butoanele curate acolo, dar nici o acțiune. Vibiraem grosime de linie edit'om - inconfortabil, cu atât mai mult este problema cu numele EditSize -?
Dacă puteți - obține mai bine ,? Pentru același lucru nu este dificil.
Ei bine, cu „edita“ OM poate fi un inconvenient, doar ceea ce nu este o opțiune?)
EditSize - numele proprietății de editare, doar cu standardul redenumit.
instrucțiuni de cerere
Noi nu găsiți instrucțiuni pas cu pas?
Este posibil ca unii dintre vizitatori vor fi în măsură să ajute. Lăsați-ne cererea chiar acum, în cazul în care considerați că acest subiect nu este acoperit în proiectul nostru!