Einzelnen Beitrag anzeigen
Ungelesen 14.04.10, 21:00   #2
Gun_der
Ist öfter hier
 
Benutzerbild von Gun_der
 
Registriert seit: Jan 2010
Beiträge: 281
Bedankt: 12
Gun_der ist noch neu hier! | 0 Respekt Punkte
Standard

Wie wärs mit delphi?

Sollte gehen mit drivecombobox, filelistbox...
da kannst du dir die bilder raussuchen und sicher auch gleich dann per button in einen gewünschten ordner verschieben

Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs ,StdCtrls, ExtCtrls, jpeg, FileCtrl;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Bild: TImage;
    BtLaden: TButton;
    BtSchliessen: TButton;
    BtLoeschen: TButton;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    Pfad: TPanel;
    ComboBox1: TComboBox;

    procedure BtSchliessenClick(Sender: TObject);

    procedure BtLadenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtLoeschenClick(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);

  private                                  //kapselung
    { Private-Deklarationen }
    Bildpfad: String;

  public
    { Public-Deklarationen }


  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}                   //Compileranweisung

procedure TForm1.BtSchliessenClick(Sender: TObject);
begin
close;
end;

procedure TForm1.BtLadenClick(Sender: TObject);
begin

  bild.Picture.LoadFromFile(Bildpfad);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bildpfad:='';
end;

procedure TForm1.BtLoeschenClick(Sender: TObject);
begin

bild.Picture:=nil;

end;


procedure TForm1.FileListBox1Change(Sender: TObject);
begin
  Pfad.Caption := Filelistbox1.FileName;
  Bildpfad := Pfad.caption;
end;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
     bild.Picture.LoadFromFile(Bildpfad);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.Itemindex of

0:   filelistbox1.Mask:= '*.jpg';

1:   filelistbox1.Mask:= '*.bmp';
end;
end;

end.

das wäre ein code für den Betrachter.
Jetzt musst du nur noch die Buttons für schlecht und gut einfügen und beschreiben
Gun_der ist offline   Mit Zitat antworten