AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte ResCreator
Thema durchsuchen
Ansicht
Themen-Optionen

ResCreator

Ein Thema von SimplySimon · begonnen am 22. Nov 2011 · letzter Beitrag vom 18. Jan 2012
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von SimplySimon
SimplySimon
Registriert seit: 7. Jun 2011
ResCreator - Ressourcendateien für eine DLL erstellen!

Mit dem ResCreator können Sie ganz einfach Dateien zu einer .rc-Datei zusammenfassen, um anschließend eine .res-Ressourcendatei zu erzeugen.
Dann einfach Ihren Delphi-Compiler öffnen und die DLL kompilieren.
Der ResCreator kann eine Projektdatei anlegen, damit Dateien im Nachhinein noch verändert, gelöscht, hinzugefügt oder erneut erzeugt werden können.

ResCreator ist kompatibel für Windows XP, Windows Vista und Windows 7 und normalerweise auch mit allen anderen Windows Betriebssystemen.

Lizenz: Freeware
Installation: .exe

Um über Updates und Verbesserungen informiert zu werden einfach hier wieder vorbeischauen.
Über Verbesserungen, Anregungen und Kritiken würde ich mich sehr freuen!

Version 1.1.0.63 Erster Beta-Test
Version 1.2.1.97 Ressourcen können umbenannt werden, Beispielprozeduren, Beispielprojekt, BugFixes
Version 1.3.4.20 BugFixes, grafisches Hintergrundbild kann deaktiviert werden (nützlich für Windows XP-User und älter)

Neue Version (1.3.4.20) verfügbar!
Miniaturansicht angehängter Grafiken
first-page.jpg   second-page.jpg  
Angehängte Dateien
Dateityp: zip ResCreator.zip (1,99 MB, 48x aufgerufen)

Geändert von SimplySimon (18. Jan 2012 um 21:02 Uhr) Grund: Update 1.3.4.20
 
Benutzerbild von uligerhardt
uligerhardt

 
Delphi 2007 Professional
 
#11
  Alt 23. Nov 2011, 17:21
OS-abhängig Beide einbauen.
Ich hab mal schnell einen Wrapper zusammengeklatscht:
Delphi-Quellcode:
function SelectDirectory(const Caption: string;
  var Directory: string; Options: TSelectDirExtOpts; Parent: TWinControl): Boolean;
var
  dlg: TFileOpenDialog;
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs then
  begin
    dlg := TFileOpenDialog.Create(nil);
    try
      dlg.Title := Caption;
      dlg.FileName := Directory;
      dlg.Options := dlg.Options + [fdoPickFolders];
      // Außerdem TSelectDirExtOpts auf TFileDialogOptions abbilden
      Result := dlg.Execute(Parent.Handle);
      if Result then
        Directory := dlg.FileName;
    finally
      dlg.Free;
    end;
  end
  else
  begin
    Result := FileCtrl.SelectDirectory(Caption, '', Directory, Options, Parent);
  end;
end;
Das kann man so aufrufen:
SelectDirectory('Test', Directory, [sdNewFolder, sdShowEdit, sdNewUI], Self);
Uli Gerhardt
  Mit Zitat antworten Zitat
Benutzerbild von SimplySimon
SimplySimon

 
Delphi 11 Alexandria
 
#12
  Alt 23. Nov 2011, 17:36
Vielen dank! Werde es demnächst einbinden
Simon
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

 
Delphi 2006 Professional
 
#13
  Alt 23. Nov 2011, 18:03
Und ab welcher Delphiversion läuft das? Ab wann steht TFileOpenDialog und UseLatestCommonDialogs zur Verfügung?
Michael
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

 
Delphi 2007 Professional
 
#14
  Alt 23. Nov 2011, 18:10
Hab's noch ein bisschen überarbeitet:
Delphi-Quellcode:
function SelectDirectory(const Caption: string;
  var Directory: string; Options: TFileDialogOptions; Parent: TWinControl): Boolean;
var
  dlg: TFileOpenDialog;
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs then
  begin
    dlg := TFileOpenDialog.Create(nil);
    try
      dlg.Title := Caption;
      dlg.FileName := Directory;
      dlg.Options := Options + [fdoPickFolders];
      Result := dlg.Execute(Parent.Handle);
      if Result then
        Directory := dlg.FileName;
    finally
      dlg.Free;
    end;
  end
  else
  begin
    Result := FileCtrl.SelectDirectory(Caption, '', Directory, [sdNewFolder, sdShowEdit, sdShowShares, sdNewUI], Parent);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  UseLatestCommonDialogs := CheckBoxUseLatestCommonDialogs.Checked;
  if SelectDirectory('Test', Directory, [], Self) then
    Label1.Caption := Directory;
end;
Vielleicht kann man die beiden Option-Typen noch besser synchronisieren. Aber z.B. scheint sdShowShares nichts mit fdoShareAware zu tun zu haben, ebensowenig sdValidateDir mit fdoNoValidate, und mehr "Pärchen" habe ich auf die Schnelle nicht gefunden.

Und ab welcher Delphiversion läuft das? Ab wann steht TFileOpenDialog und UseLatestCommonDialogs zur Verfügung?
Ich hab's mit D2007 ausprobiert.

Update: Wie zu erwarten lässt es sich mit Turbo Delphi nicht kompilieren.
Uli Gerhardt

Geändert von uligerhardt (23. Nov 2011 um 19:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von SimplySimon
SimplySimon

 
Delphi 11 Alexandria
 
#15
  Alt 24. Nov 2011, 21:49
Hallo alle zusammen,

habe mich nochmal hingesetzt und die Version überarbeitet.
Es sind neue Funktionen hinzugekommen, einiges wurde verbessert, außerdem sollte jetzt auch
das Problem mit Windows XP gelöst sein.
Simon
  Mit Zitat antworten Zitat
Benutzerbild von SimplySimon
SimplySimon

 
Delphi 11 Alexandria
 
#16
  Alt 18. Jan 2012, 20:52
Kleines Update für zwischendurch. Habe noch ein paar kleine Fehler gefunden.
Simon
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz