Auch wenn es einige nervt trotz allem noch eine neue Version hochgeladen.
Änderungen siehe oben.
so etwas muss natürlich noch mit rein.
Delphi-Quellcode:
procedure TMainApp.DestroyChildControls;
var
Path: string;
begin
Path := FolderResource + 'PopUpWindow\OTTB.ttf';
RemovePrivateFontCollection(Path);
FPrivateFont := nil;
panBackgoundFrame.DestroyWindow;
panBackgoundFrame := nil;
btnAbout.DestroyWindow;
btnAbout := nil;
btnIconFrame.DestroyWindow;
btnIconFrame := nil;
btnIconBack.DestroyWindow;
btnIconBack := nil;
btnWallpaper.DestroyWindow;
btnWallpaper := nil;
btnShortCut.DestroyWindow;
btnShortCut := nil;
btnSound.DestroyWindow;
btnSound := nil;
btnConfig.DestroyWindow;
btnConfig := nil;
btnEdit.DestroyWindow;
btnEdit := nil;
btnCleanUp.DestroyWindow;
btnCleanUp := nil;
btnRestart.DestroyWindow;
btnRestart := nil;
btnPortable.DestroyWindow;
btnPortable := nil;
btnClose.DestroyWindow;
btnClose := nil;
end;
Das hat jedoch keinerlei Auswirkung ohne die neue
DLL im Archiv.
Deshalb der neue Upload.
gruss