Delphi Simple Color Effect

Συζητήσεις σχετικές με την Delphi και την πρόγονη της Pascal

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Panoulis
Δημοσιεύσεις: 337
Εγγραφή: 02 Αύγ 2002 02:15
Τοποθεσία: Αθήνα

Delphi Simple Color Effect

Δημοσίευση από Panoulis » 05 Φεβ 2004 01:34

Ένα μικρό tutorial για το πως θα φτιάξουμε στο delphi ένα μικρό εφέ.
Προσθέτουμε στη φόρμα μας ένα Image με ιδιότητες Width = 320 και Height = 240, Δύο Button, μία ProgressBar, και ένα SaveDialog με την ιδιότητα Filter Name στο "BMP(*.BMP)" και την ιδιότητα Filter στο "*.bmp" (Χωρίς τα εισαγωγικά). Στο πρώτο button στο συμβάν OnClick βάζουμε τον παρακάτω κώδικα

Κώδικας: Επιλογή όλων

procedure TForm1.Button1Click(Sender: TObject);
Var
I, I1 : Integer;
begin
ProgressBar1.Max := Image1.Width * (Image1.Height + 200);
ProgressBar1.Position := 0;
 For I := 0 To Image1.Width  do
  Begin
     For I1 := 0 to Image1.Height + 200 do
     Begin
     ProgressBar1.Position := ProgressBar1.Position + 1;
     Image1.Canvas.Pixels[I1,I] := RGB(I1 - I,I1 + I,I - I1);
     End;
  End;
End;
και στο δεύτερο button πάλι στο συμβάν OnClick βάζουμε τον παρακάτω κώδικα για να μπορούμε να σώσουμε την εικόνα ως αρχείο bitmap

Κώδικας: Επιλογή όλων

procedure TForm1.Button2Click(Sender: TObject);
begin
   SaveDialog1.FileName := '';
   SaveDialog1.Execute;
   If SaveDialog1.FileName <> '' Then
   Begin
   Image1.Picture.SaveToFile&#40;SaveDialog1.FileName + '.bmp'&#41;;
   end;
End;
Το αποτέσμα θα είναι το παρακάτω...
Εικόνα

Απάντηση

Επιστροφή στο “Delphi, Pascal”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες