Picture Shredder - Bilder zerhackstückeln

[Matze]

Hallo zusammen,

da ich gefragt wurde, ob ich nicht den Code des Picture Shredders offenlegen möchte, dachte ich, wieso nicht. Vielleicht lernen andere davon.

Beschreibung:
Das Programm zerteilt ein Bild in viele kleinere und speichert diese und eine zugehörige HTML-Datei ab, die die kleineren Bilder wieder zu einem großen zusammensetzt.

Version: 1.1.1.0
Lizenz:: LGPL

Der Code ist, wie eigentlich immer, relativ gut kommentiert und formatiert (Über beides kann man natürlich streiten, das ist klar ).

Für ein hübscheres MainMenu verwende ich die Komponente TXPMenu. Wer diese nicht hat, muss im Source lediglich folgendes entfernen, damit es sich kompilieren lässt:

uses (FrmMain):
XPMenu, Private-Abschnitt (FrmMain):

Delphi-Quellcode:

// XPMenu to have a modernized MainMenu
MyXPMenu: TXPMenu;

OnCreate (FrmMain):

Delphi-Quellcode:

// Nicer design with XPMenu ^^
MyXPMenu := TXPMenu.Create(FrmMain);
MyXPMenu.XPControls := [xcMainMenu];
MyXPMenu.Active := true;