Autor |
Beitrag |
Default112
Beiträge: 76
Win XP
D6 Prof
|
Verfasst: So 01.08.04 22:47
Ich habe da eine Unit gebastelt, mit der man der sonst öden, rechteckigen Form1 mal ein ganz anderes Aussehen zu verpassen Grundstock dafür ist "Gabes Odd Form" www.informatics.no/progvareOF.htm. Dieses Programm fährt die Umrisse einer Form ab und speichert das ganze in einer *.pas Datei, die man dann in sein Projekt einbinden kann. Aber: So kann man halt nur zur Entwicklungszeit bestimmen, welche Form das fertige Programm haben soll (es sei denn man bindet alle Formen ein, die man haben will).
Nun habe ich ein Progamm und eine Unit geschrieben, mit der man zur Laufzeit Formen laden kann; man benötigt zum Einfügen einer Form nicht mehr den Quelltext. Die *.pas Datei von "Gabes Odd Form" wird von meinem Programm "Pas2Dat" in eine Datei verwandelt, die meine Unit lesen kann.
Was red ich, hier der Download-link: [url] www.galerie-puetter....nnedDelphi.zip[/url]
Ist die Unit eingebunden, so verwendet man diese mit:
Delphi-Quelltext 1: 2: 3:
| polyfile := TStringlist.Create; polyfile.loadfromfile(polyfilename); CreateOddWIndow(Form1.Handle,polyfile); |
Wobei die "polyfile" die erstellte *dat-Datei ist.
Erscheint ein wenig umständlich, erfüllt aber in meinen derzeitigen Projekten seinen Zweck und da hab ich mir gedacht, mal schauen, was ihr dazu sagt
Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.
|
|
matze
Beiträge: 4613
Erhaltene Danke: 24
XP home, prof
Delphi 2009 Prof,
|
Verfasst: Mo 02.08.04 09:40
cool. also bei mir läufts einwandfrei !
_________________ In the beginning was the word.
And the word was content-type: text/plain.
|
|
viba6
Hält's aus hier
Beiträge: 13
Win XP, Ubuntu
Turbo Delphi für Win32
|
Verfasst: Sa 07.08.04 17:47
Titel: Genau das Richtige
Hi,
ich finde das Ganze einfach super.
War die ganze Zeit am Suchen nach so etwas.
_________________ Zeiten der Ordnung sind die Ruhepausen des Chaos.
|
|
Larus
Beiträge: 431
|
Verfasst: Mi 20.10.04 14:07
Titel: Link defekt...
Tja bei nmir geht dein Downloadlinke nt
Schade eigentlich da ich so was brauche
|
|
master cool
Beiträge: 32
Win XP Home
D3 Prof
|
Verfasst: Do 21.10.04 14:38
Bei mir funzt der Link au nich!
Bitte ändern
|
|
Default112
Beiträge: 76
Win XP
D6 Prof
|
Verfasst: Fr 29.10.04 20:51
Hmm.. hab im Moment keinen Webspace mehr, wo ich den Kram hochladen könnt
sry
Def
|
|
F34r0fTh3D4rk
Beiträge: 5284
Erhaltene Danke: 27
Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
|
Verfasst: Mi 17.11.04 18:31
|
|
reepo2k
Beiträge: 138
WIN XP
Borland Delphi 7 Enterprise, Microsoft Visual C++ 6.0 Enterprise, Macromedia Dreamweaver 8
|
Verfasst: Do 23.12.04 19:38
Ich bin auch interessiert.
Und Webspace sollt nich das Problem sein, schreib mit per ICQ (204459401) und ich lad das auf meinen.
MfG: reepo2k
|
|
Default112
Beiträge: 76
Win XP
D6 Prof
|
Verfasst: Do 27.01.05 21:12
Hoppala, lang nicht mehr hier rein geschaut Klar, ich schreib dich genau *jetzt* an ^^ Dann kannst das ma irgendwo hochladen.
Gruss
Def
edit: reepo2k war so nett und hats nochmal hochgeladen, hier der link:
www.cheaterelite.de/...en/SkinnedDelphi.zip
|
|
mimi
Beiträge: 3458
Ubuntu, Win XP
Lazarus
|
Verfasst: So 20.03.05 12:45
er findet die datei nicht, lade in doch als anhang hoch !
_________________ MFG
Michael Springwald, "kann kein englisch...."
|
|
msickel
Beiträge: 64
WinXP Pro
Delphi 2 Pro, Delphi 4 Pro, Delphi 7 Pers, Delphi 2005 Pers, Delphi 2005 Pro
|
Verfasst: Mi 11.05.05 09:27
könte das eventuell nochmal jemand online stellen, beide links gehen nicht mehr
Martin
|
|
3rdnuss
Beiträge: 139
|
Verfasst: Do 12.05.05 14:53
lads's doch bei www.rapidshare.de hoch..
Edit:
Hab gerade gesehen wie alt der Thread schon ist..
|
|
JayEff
Beiträge: 2971
Windows Vista Ultimate
D7 Enterprise
|
Verfasst: Do 12.05.05 15:10
1. ich kanns hochladen 2. lad es als ANHANG zu deinem POST hoch. bissl runter scrollen beim antwort erstellen und zack findet sich: Zitat: | Dateianhang hinzufügen
Wenn Du keinen Dateianhang hinzufügen möchtest, dann lasse die Felder einfach leer. |
_________________ >+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.
|
|
Default112
Beiträge: 76
Win XP
D6 Prof
|
Verfasst: Sa 14.05.05 23:13
Jo, habs dann mal hochgeladen. War ja schon lange nicht mehr hier
Ich hoffe ich habe keine Testpersonen vergrault ^^
Für konstruktive Kritik bin ich immer zu haben
Gruss
Def
Einloggen, um Attachments anzusehen!
|
|
Stefan-W
Beiträge: 475
Win 7 SP1
D2005 PE
|
Verfasst: So 15.05.05 12:11
Hi, also ich hab mir dein Programm mal angesehen und find es Klasse!!!
Ich hab aber noch ein paar Vorschläge was noch mit eingebaut werden könnt:
Also: für alle die nicht so mit Englisch klar kommen währ die Deutsche Sprache nicht schlecht (auch in der Hilfe)
und: kann man eventuell noch einbauen das bestimmte farben nur halb durchsichtig sind? Wobei man dann die farbe die halb durchsichtig ist einstellbar ist (zB Grauer oder Roter schatten) dann müsste die Transparenz einstellbar sein (zB 50%)
ist sicher gleich weng viel, währ aber cool
Tschau Stefan
/Edit: mir ist grad noch aufgefallen das beim Trackbar rechten der Hint fehlt...
|
|
Default112
Beiträge: 76
Win XP
D6 Prof
|
Verfasst: So 15.05.05 13:24
Nun, wie ich in meinem ersten Post geschrieben habe ist das Programm "Gabes Oddform" nicht von mir. Da hab ich halt keinen Einfluss drauf. Von mir ist die *.pas und das Programm Pas2Dat. Hab das so extra im ersten Post geschrieben, damit mir keiner an die Karre fahren kann
Gruss
Def
|
|
Stefan-W
Beiträge: 475
Win 7 SP1
D2005 PE
|
Verfasst: So 15.05.05 13:59
gut dann hab ich nix gesagt (ich hatte nicht das ganze Thema gelesen )
|
|
Default112
Beiträge: 76
Win XP
D6 Prof
|
Verfasst: So 15.05.05 14:01
Nicht weiter schlimm ^^ Ich könnte ja ein deutsches Readme oder How-To schreiben
|
|
150gozilla
Beiträge: 37
Windows XP Pro
Delphi5 Pro
|
Verfasst: Mo 19.09.05 15:29
Default112 hat folgendes geschrieben: | Ich habe da eine Unit gebastelt, mit der man der sonst öden, rechteckigen Form1 mal ein ganz anderes Aussehen zu verpassen Grundstock dafür ist "Gabes Odd Form" www.informatics.no/progvareOF.htm. Dieses Programm fährt die Umrisse einer Form ab und speichert das ganze in einer *.pas Datei, die man dann in sein Projekt einbinden kann. Aber: So kann man halt nur zur Entwicklungszeit bestimmen, welche Form das fertige Programm haben soll (es sei denn man bindet alle Formen ein, die man haben will).
Nun habe ich ein Progamm und eine Unit geschrieben, mit der man zur Laufzeit Formen laden kann; man benötigt zum Einfügen einer Form nicht mehr den Quelltext. Die *.pas Datei von "Gabes Odd Form" wird von meinem Programm "Pas2Dat" in eine Datei verwandelt, die meine Unit lesen kann.
Was red ich, hier der Download-link: [url]www.galerie-puetter....nnedDelphi.zip[/url]
Ist die Unit eingebunden, so verwendet man diese mit:
Delphi-Quelltext 1: 2: 3:
| polyfile := TStringlist.Create; polyfile.loadfromfile(polyfilename); CreateOddWIndow(Form1.Handle,polyfile); |
Wobei die "polyfile" die erstellte *dat-Datei ist.
Erscheint ein wenig umständlich, erfüllt aber in meinen derzeitigen Projekten seinen Zweck und da hab ich mir gedacht, mal schauen, was ihr dazu sagt
Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt. |
wie und wo kann ich das einbinden ? und darstellen ?
bin anfänger ^^
|
|
Default112
Beiträge: 76
Win XP
D6 Prof
|
Verfasst: Mo 19.09.05 17:24
Ok... mal einfach
Ich hoffe, du hast mit dem OddFormes Programm schon eine *.pas Datei erstellt? Solltest du nur ein einziges Design wünschen wars das schon, dann kannst du die *.pas Datei nehmen und in dein Projekt einbinden. Dann mit
Delphi-Quelltext 1:
| CreateOddWindow(AHandle:THandle; ShowTitleBar:boolean); |
im OnCreate aufrufen. Dann hast du schonmal die Form von deiner Bitmap. Dann musst du nur noch ein Image auf dein3e Form legen und das entsprechende Bild reinladen. Fertig. Möchtest du aber während der Laufzeit laden wird es komplizierter. Dann halte dich an meine Anleitung von ersten Post und du wirst glücklich Also die 3 Zeilen da, laden dir sofort das entsprechende Aussehen deines Programms. Kannst reinschreiben wo du willst.
Gruss
Def
|
|