TApplication erweitern?

[LazarusRocks]

Hallo,

ich habe TApplication erweitert.

property Application.UserDir (nix anderes als aufruf von GetUserDir)
property Application.ConfigDir (nix anderes als aufruf von GetAppConfigDir)

dazu musste ich die Datei E:\lazarus\fpc\2.4.1\source\packages\fcl-base\src\custapp.pp erweitern.

Nun wie weiter ? Muss ich nun fpc neu kompilieren ? Falls ja wie ?

Danke.

[carli]

Zieh dir am besten vom SVN den Lazarus-Source, bau den Change ein und generiere einen Patch.
Das ganze bietest du dann im irc #lazarus oder so als Patch an und in der nächsten Lazarus-Version ists drin.
Für dich lokal dann auch jetzt schon.

Denk aber dran, dass es plattformunabhängig sein muss, wenn es ins offizielle Lazarus-Repos rein soll

[theo]

Nun wie weiter ? Muss ich nun fpc neu kompilieren ? Falls ja wie ?

Nein, du musst nur die LCL neu kompilieren.
http://wiki.lazarus.freepascal.org/IDE_ ... Lazarus/de" onclick="window.open(this.href);return false;

[Socke]

Nein, du musst nur die LCL neu kompilieren.
http://wiki.lazarus.freepascal.org/IDE_ ... Lazarus/de" onclick="window.open(this.href);return false;

Falsch. Die Datei custapp.pp gehört wie, der Dateipfad schon sagt zu den Compiler Packages. Lazarus kann nur sich selbst und alles zur IDE gehört bauen. FPC, RTL und die Compiler Packages gehören nicht dazu. Daher gehe ich davon aus, dass die Klasse TCustomApplication verändert wurde (wenn nicht kann man alles ab hier ignorieren).

Nun wie weiter ? Muss ich nun fpc neu kompilieren ? Falls ja wie ?

Du musst eigentlich nur diese eine Datei neu kompilieren und dann die alten Binärdateien ersetzen:

Code: Alles auswählen

cd E:\lazarus\fpc\2.4.1\source\packages\fcl-base\src\
fpc custapp.pp
mv custapp.o E:\lazarus\fpc\2.4.1\lib\units\i386-win32\fcl-base\
mv custapp.ppu E:\lazarus\fpc\2.4.1\lib\units\i386-win32\fcl-base\

Der Pfad, wo die vorkompilierten units bei dir gespeichert sind, ist nur geraten. Es gibt aber in der FPC-Installation ein Verzeichnis mit dem Namen "units" mit einem Unterverzeichnis, welches dein Prozessor und Betriebssystem wiederspiegelt (also i386-win32 oder x64-win32 oder ähnliches). Darin gibts ein Verzeichnis "fcl-base", wo die beiden erstellten Dateien custapp.o und custapp.ppu hinein müssen.

[theo]

Nein, du musst nur die LCL neu kompilieren.
http://wiki.lazarus.freepascal.org/IDE_ ... Lazarus/de" onclick="window.open(this.href);return false;

Falsch.

Naja, sagen wir halb falsch.
Mit custapp.pp hast du natürlich recht.
Andererseits sagt er ja, er habe TApplication erweitert (unit Forms der LCL).
Wahrsch. hat er aber TCustomApplication (in custapp.pp) erweitert. Ob das sinnvoll ist, weiss ich nicht.

[Socke]

Naja, sagen wir halb falsch.
Mit custapp.pp hast du natürlich recht.
Andererseits sagt er ja, er habe TApplication erweitert (unit Forms der LCL).
Wahrsch. hat er aber TCustomApplication (in custapp.pp) erweitert. Ob das sinnvoll ist, weiss ich nicht.

Die angesprochenen Funktionen sind in der RTL enthalten. Daher wären sie in TCustomApplication besser aufgehoben, wenn auch nicht unbedingt notwendig.
Wenn ich TApplication für meine Zwecke erweitern will, gehe ich eh einen anderen weg

[LazarusRocks]

Ja, ich habe custapp.pp erweitert.
Anschliessend ein kleines Test-Progrämmchen gemacht und das hat dann nicht compiliert.
Darauch hab ich dann Lazarus neu compiliert (mit Clean All usw) aber das hat auch nix gebracht.

Lustigerweise wurden die neuen Eigenschaften in der Code-Completition angezeigt.
Also muss ich offenbar FCL frisch compilieren.

Hab mir dann mit SVN den Freepascal Trunk geholt und gehofft dass da ein batch-datei sei um den ganzen Kram neu zu bilden.
Leider hab ich das dann aber nicht hingekriegt und deshalb hier im Forum meine Frage gepostet.

Danke.

[af0815]

Hab mir dann mit SVN den Freepascal Trunk geholt und gehofft dass da ein batch-datei sei um den ganzen Kram neu zu bilden.

Es wird über 'make' dateien gemacht - Keine 'Batch-datei' damit geht das sowhl auf Win als auch auf Linux,... . Damit kann sowohl der FPC als auch Lazarus aus dem trunk erstellt werden.

[carli]

Vielleicht hilft auch ein einfaches "FPC Quellenverzeichnis neu einlesen"?

[Hitman]

Vielleicht hilft auch ein einfaches "FPC Quellenverzeichnis neu einlesen"?

Das ist für die Code-Completion, nicht für den Compiler. Er kommt nicht darum herum, mindestens die FCL neu zu bauen (und damit anschließend auch nochmal die LCL).

[theo]

Darf ich mal fragen, was der Sinn dieser Übung ist?
Ich meine das bringt ja nun echt nicht besonders viel, oder?
Ob es als Patch durchkommt, wage ich zu bezweifeln. Oder hat Delphi das neuerdings?

Ist schon OK, ich wollte nur mal fragen.

[LazarusRocks]

Ja TApplication wird halt seit Jahren vernachlässigt und wäre aber so eine schöne Sache.

So muss ich z.B. oft in meine Projekt Code reinkopieren um z.B. UniqueInstance zu erhalten.

Wäre doch schön wenn man Application.UniqueInstance:=true; schreiben könnte und die Sache wäre erledigt
Oder wie ein anderer Thread hier im Forum zeigt wäre z.B. Application.Version ganz nett.

Und damit halt die Config-Dateien am richtigen Ort landen:
Application.UserDir // user path
Application.ConfigDir // all users
Application.Path // "startIn" path der Anwendung

[Socke]

Ja TApplication wird halt seit Jahren vernachlässigt

Dann dürfte seit Jahren alles da sein, um Programme zum Laufen zu bringen. Am Hilfesystem wird zwar noch gearbeitet, aber es ist in Arbeit.

So muss ich z.B. oft in meine Projekt Code reinkopieren um z.B. UniqueInstance zu erhalten.
Wäre doch schön wenn man Application.UniqueInstance:=true; schreiben könnte und die Sache wäre erledigt

Wenn du meinst, dass TApplication unterstützen sollte, dass immer nur eine Instanz deiner Anwendung gestartet werden darf, und du deshalb immer diesen Code kopieren musst, versuche dich einmal mit einem Package. Ob ich dann Application.UniqueInstance := True oder AllowMultipleInstances(False) (als funktionale Variante) verwende ist für mich eher Nebensache.

Oder wie ein anderer Thread hier im Forum zeigt wäre z.B. Application.Version ganz nett.

Was soll diese Eigenschaft/Funktion zurückliefern? Eine Versionsnummer ist in der Regel nicht Bestandteil einer Anwendung sondern eine Eigenschaft. Damit wäre es in einer Eigenen Unit (siehe LCL/Lazarus) eventuell besser aufgehoben. Wenn allerdings die Versionsinformationen aus dem Ressourcen-Abschnitt der Binärdatei extrahiert werden soll, stimme ich für eine entsprechende Funktion in der FCL (nicht in der LCL oder RTL). Den angesprochenen Thread kenne ich nicht (kannst du den evtl. verlinken?)

Wenn ich TApplication erweitern möchte, mache ich das üblicherweise auf Projektbasis. Es spricht aber nichts dagegen, eine entsprechende Klasse in einem Package für alle Projekte bereit zu halten:

Code: Alles auswählen

uses Forms;
initialization
Application.Free;
Application := TMyApplication.Create(nil);