[hyperia]

Hi


Ich will euch hier mein aller erstes "Programm" vorstellen.
Ich weiß es nichts was keiner schafft aber ich will einmal von euch Pros wissen an welchen Stellen ich bestimmte Sachen eleganter Lösen hätte können^^


Also es handelt sich um einen "Screen Shot Maker"

Ich hab für das komplette Projekt ca. 1 Stunde gebraucht , naja wenn man bedenkt das ich mir vor 2,5 Stunden Delphi 2005 runtergeladen habe gar nicht so schlecht , oder?

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, JPEG, ShellApi, Menus;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    Button5: TButton;
    procedure Button5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure BmpToJpg(const Filename: String; Quality: TJPEGQualityRange=100);
var
 Bmp: TBitmap;
 Jpg: TJpegImage;
begin
Bmp:=TBitmap.Create;
Jpg:=TJpegImage.Create;
try
  Bmp.LoadFromFile(Filename);
  Jpg.CompressionQuality:=Quality;
  Jpg.Assign(Bmp);
  Jpg.SaveToFile(ChangeFileExt(Filename, '.jpg' ));
finally
  Jpg.Free;
  Bmp.Free;
end;
end;

procedure SaveAppScreen(const SaveBmpFileName: string);
var
  Bitmap: TBitmap;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetWindowDC(0);
    try
      Bitmap := TBitmap.Create;
      try
        Bitmap.Width := Application.MainForm.Width;
        Bitmap.Height:= Application.MainForm.Height;
        Bitmap.PixelFormat := pfDevice;
        BitBlt(Bitmap.Canvas.Handle, 0, 0, Pred(Application.MainForm.Width), Pred(
               Application.MainForm.Height), Canvas.Handle,
               Application.MainForm.Left, Application.MainForm.Top,
               Bitmap.Canvas.CopyMode);
        Bitmap.SaveToFile(SaveBmpFileName);
      finally
        FreeAndNil(Bitmap);
      end;
    finally
      ReleaseDC(0, Canvas.Handle);
    end;
  finally
    FreeAndNil(Canvas);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SaveAppScreen('C:\Screenie.bmp');
if CheckBox1.Checked then
BmpToJpg('C:\Screenie.bmp');
if CheckBox1.Checked then
deletefile('C:\Screenie.bmp');

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Width := 800;
Form1.Height := 600

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Width := 1024;
Form1.Height := 768
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Width := 1280;
Form1.Height := 1024;
end;



procedure TForm1.FormShow(Sender: TObject);
begin
Form1.ScreenSnap := true;
Form1.SnapBuffer := 30;
end;

procedure TForm1.Button5Click(Sender: TObject);

begin
  if ShellExecute(Application.Handle,
                 'open',
                 PChar('C:\Screenie.bmp'),
                 Nil, Nil, SW_NORMAL) <= 32 then
    ShellExecute(Application.Handle,
                 'open',
                 PChar('C:\Screenie.jpg'),
                 Nil, Nil, SW_NORMAL)


end;


end.

OKAY UND HIER DER DL LINK , AUF RAPIDSHARE



Okay ich wünsche mir ein kleines Feedback von euch.
Wenns geht auch ein paar verbesserungs vorschläge




MFG HyP

Zitat von hyperia:

Ich hab für das komplette Projekt ca. 1 Stunde gebraucht , naja wenn man bedenkt das ich mir vor 2,5 Stunden Delphi 2005 runtergeladen habe gar nicht so schlecht , oder?

Ja wenn man noch dabei bedenkt, dass du den halben Code geklaut hast, nicht schlecht.
Url1
Url2

Hi,

Das folgende kannst du noch bisschen besser schreiben:

markieren

Delphi-Quellcode:

if CheckBox1.Checked then
BmpToJpg('C:\Screenie.bmp');
if CheckBox1.Checked then
deletefile('C:\Screenie.bmp');

markieren

Delphi-Quellcode:

if CheckBox1.Checked then
begin
  BmpToJpg('C:\Screenie.bmp');
  deletefile('C:\Screenie.bmp');
end;

Gruß
Neutral General

Zitat von ErazerZ:

Zitat von hyperia:

Ich hab für das komplette Projekt ca. 1 Stunde gebraucht , naja wenn man bedenkt das ich mir vor 2,5 Stunden Delphi 2005 runtergeladen habe gar nicht so schlecht , oder?

Ja wenn man noch dabei bedenkt, dass du den halben Code geklaut hast, nicht schlecht.
Url1
Url2

ja ich hab halt kein plan , wie ich das hätte selbst schreiben solln ^^



edit :: die form könnt ihr euch auchgmal angucken