Skins
Moderator: Moderatoren
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Skins
Hallo,
habe da ein Tool gefunden, mit dem man über ActiveX Skins für Programme definieren kann. Die Verwendung sieht einfach aus und das Ergebnis in den Beispielen kann sich sehen lassen. Habe jetzt versucht das ganze einzubinden, aber leider ändert sich nichts in der Oberfläche. Sonst lässt sich alles problemlos aufrufen. Vielleicht hat noch jemand Interesse dran und könnte sich das mal anschauen.
Es nennt sich SkinCrafter, habe die Sharewareversion installiert. Anbei mein Code.
Grüsse
Rudolf
#INCLUDE "dcdialog.CH"
#pragma Library("ascom10.lib")
#pragma Library("dclipx.lib")
FUNCTION Main()
LOCAL GetList[0], GetOptions,cTest := space(10),lOk
PRIVATE oSkin
/*
OLEObject SkinOb
SkinOb = CREATE oleobject
SkinOb.ConnectToNewObject("SkinCrafter.SCSkin2")
SkinOb.InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
SkinOb.InitDecoration(1)
SkinOb.LoadSkinFromFile
*/
oSkin := ActiveXObject():create("SkinCrafter.SCSkin2")
IF Empty(oSkin)
DC_WinAlert( "'SkinCrafter' can not be created:" + Chr(13) + Chr(10 ) +;
ComLastMessage() , "Error" )
QUIT
ENDIF
dcqdebug ComLastError()
if !fexists("Stylish.skf")
dc_msgbox("Fehler, Skin nicht gefunden")
endif
oSkin:InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
oSkin:InitDecoration(1)
oSkin:LoadSkinFromFile("Stylish.skf")
oSkin:ApplySkin()
dc_inspectobject(oSkin)
@ 1,1 dcsay "Das ist ein Test" GET cTest
dcread gui fit modal addbuttons to lOk
altd()
return NIL
habe da ein Tool gefunden, mit dem man über ActiveX Skins für Programme definieren kann. Die Verwendung sieht einfach aus und das Ergebnis in den Beispielen kann sich sehen lassen. Habe jetzt versucht das ganze einzubinden, aber leider ändert sich nichts in der Oberfläche. Sonst lässt sich alles problemlos aufrufen. Vielleicht hat noch jemand Interesse dran und könnte sich das mal anschauen.
Es nennt sich SkinCrafter, habe die Sharewareversion installiert. Anbei mein Code.
Grüsse
Rudolf
#INCLUDE "dcdialog.CH"
#pragma Library("ascom10.lib")
#pragma Library("dclipx.lib")
FUNCTION Main()
LOCAL GetList[0], GetOptions,cTest := space(10),lOk
PRIVATE oSkin
/*
OLEObject SkinOb
SkinOb = CREATE oleobject
SkinOb.ConnectToNewObject("SkinCrafter.SCSkin2")
SkinOb.InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
SkinOb.InitDecoration(1)
SkinOb.LoadSkinFromFile
*/
oSkin := ActiveXObject():create("SkinCrafter.SCSkin2")
IF Empty(oSkin)
DC_WinAlert( "'SkinCrafter' can not be created:" + Chr(13) + Chr(10 ) +;
ComLastMessage() , "Error" )
QUIT
ENDIF
dcqdebug ComLastError()
if !fexists("Stylish.skf")
dc_msgbox("Fehler, Skin nicht gefunden")
endif
oSkin:InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
oSkin:InitDecoration(1)
oSkin:LoadSkinFromFile("Stylish.skf")
oSkin:ApplySkin()
dc_inspectobject(oSkin)
@ 1,1 dcsay "Das ist ein Test" GET cTest
dcread gui fit modal addbuttons to lOk
altd()
return NIL
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net
- Lewi
- 1000 working lines a day
- Beiträge: 830
- Registriert: Di, 07. Feb 2006 14:10
- Wohnort: Hamburg
- Danksagung erhalten: 2 Mal
Hallo Rudolf,
für Visual Objects habe ich ein Beispiel gefunden. Für xBase sähe der Code so aus:
Gruß, Olaf
für Visual Objects habe ich ein Beispiel gefunden. Für xBase sähe der Code so aus:
Code: Alles auswählen
oSkin:InitLicenKeys("0","SKINCRAFTER","SKINCRAFTER.COM","support@skincrafter.com","DEMOSKINCRAFTERLICENCE") // evtl. "0" als ersten Paramater?
oSkin:DefineLanguage(1)
oSkin:InitDecoration(1)
SkinOb:LoadSkinFromFile( "c:\test\Skin.skf" ) // versuche es mal mit einer Pfadangabe
SkinOb:ApplySkin()
Gruß, Olaf
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Hallo Olaf,
leider bekomme ich dann eine Fehlermeldung, ungültige Anzahl Parameter. Die "0" dürfte ihm also nicht bekommen.
Aber das Logo von Skincrafter erscheint und meldet die Sharewareversion. Also wird des grundsätzlich aktiviert.
Ich bekomme bei ComLastError() -2147467262 raus, vielleicht hat es mit dem was zu tun.
Aber interessant, dass es mit VO geht. Wäre super wenn man das Ding auch mit XBase++ zum Laufen bringen würde.
Grüsse
Rudolf
leider bekomme ich dann eine Fehlermeldung, ungültige Anzahl Parameter. Die "0" dürfte ihm also nicht bekommen.
Aber das Logo von Skincrafter erscheint und meldet die Sharewareversion. Also wird des grundsätzlich aktiviert.
Ich bekomme bei ComLastError() -2147467262 raus, vielleicht hat es mit dem was zu tun.
Aber interessant, dass es mit VO geht. Wäre super wenn man das Ding auch mit XBase++ zum Laufen bringen würde.
Grüsse
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net
- AUGE_OHR
- Marvin
- Beiträge: 12906
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 45 Mal
Re: Skins
hi,
gruss by OHR
Jimmy
lohnt sich das wirklich den Preis für Registrierung: 399,- US ?Rudolf hat geschrieben: Es nennt sich SkinCrafter, habe die Sharewareversion installiert.
gruss by OHR
Jimmy
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Hallo Jimmy,
für mich würde sich der Preis rentieren, der Anwender entscheidet auch mit den Augen. XBase++ hat für mich eine zu altmodische Oberfläche.
Grüsse
Rudolf
für mich würde sich der Preis rentieren, der Anwender entscheidet auch mit den Augen. XBase++ hat für mich eine zu altmodische Oberfläche.
Grüsse
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net
- AUGE_OHR
- Marvin
- Beiträge: 12906
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 45 Mal
hi,
aber man kann doch auch mit Xbase++ diverse Sachen machen.
So hab ich z.b. einen "runden" XbpDialog für meine "analog" Uhr
gewählt oder "transparente" Fenster. Mit :setPresParam() kann
man so ziemlich alle XbParts in ihrer Optik manipulieren und Günter
hat sicherlich noch irgend einen API "Trick" um Xbase++ zu erweitern
klar hängt es von der Application selbst ab ob man ein "knallbuntes"
oder "seriöses" Erscheinungsbild einsetzt, aber das "was und wie" die
Applikation etwas macht sowie die Geschwindigkeit ist doch das
entscheidend.
So hab ich z.b. meine "Timeline" mit Bitmaps erstmal auf Eis gelegt.
Nicht weil es nicht möglich ist, sondern weil es einfach viel zu langsam
ist um 64x64x32 Bitmaps anzuzeigen. Wenn ich nun die Farbtiefe auf
8-bit verringere stimmt die Optik nicht mehr (Farbfehler) aber es geht
schnell genug um damit navigieren zu können ...
last, but not least : ich "mag" keine 3party Lösungen mehr die nicht
Source sind. Wenn M$ mal wieder seine API wechselt (OCX -> .NET)
"passt" nichts mehr. Bei jeder neuen Version muss man einem "update"
nach jagen bis alles wieder "stabil" läuft.
gruss by OHR
Jimmy
naja eben halt "Windows" ...Rudolf hat geschrieben: XBase++ hat für mich eine zu altmodische Oberfläche.
aber man kann doch auch mit Xbase++ diverse Sachen machen.
So hab ich z.b. einen "runden" XbpDialog für meine "analog" Uhr
gewählt oder "transparente" Fenster. Mit :setPresParam() kann
man so ziemlich alle XbParts in ihrer Optik manipulieren und Günter
hat sicherlich noch irgend einen API "Trick" um Xbase++ zu erweitern
klar hängt es von der Application selbst ab ob man ein "knallbuntes"
oder "seriöses" Erscheinungsbild einsetzt, aber das "was und wie" die
Applikation etwas macht sowie die Geschwindigkeit ist doch das
entscheidend.
So hab ich z.b. meine "Timeline" mit Bitmaps erstmal auf Eis gelegt.
Nicht weil es nicht möglich ist, sondern weil es einfach viel zu langsam
ist um 64x64x32 Bitmaps anzuzeigen. Wenn ich nun die Farbtiefe auf
8-bit verringere stimmt die Optik nicht mehr (Farbfehler) aber es geht
schnell genug um damit navigieren zu können ...
last, but not least : ich "mag" keine 3party Lösungen mehr die nicht
Source sind. Wenn M$ mal wieder seine API wechselt (OCX -> .NET)
"passt" nichts mehr. Bei jeder neuen Version muss man einem "update"
nach jagen bis alles wieder "stabil" läuft.
gruss by OHR
Jimmy
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Hallo an alle,
wenn Skincraft nicht unterstützt wird, dann muss ich das Ganze sowieso vergessen. Hat zu einfach ausgesehen, ein paar Zeilen zusätztlicher Code und die Programme hätten besser ausgesehen.
Das mit Geschwindigkeit und verschiedenen Versionen etc. ist sicher ein Problem. Aber das Interface hätte sich ja leicht ausschalten lassen wenn irgend etwas nicht stimmt.
Jedenfalls Danke für Euro Tips
Grüsse
Rudolf
wenn Skincraft nicht unterstützt wird, dann muss ich das Ganze sowieso vergessen. Hat zu einfach ausgesehen, ein paar Zeilen zusätztlicher Code und die Programme hätten besser ausgesehen.
Das mit Geschwindigkeit und verschiedenen Versionen etc. ist sicher ein Problem. Aber das Interface hätte sich ja leicht ausschalten lassen wenn irgend etwas nicht stimmt.
Jedenfalls Danke für Euro Tips
Grüsse
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net
- Lewi
- 1000 working lines a day
- Beiträge: 830
- Registriert: Di, 07. Feb 2006 14:10
- Wohnort: Hamburg
- Danksagung erhalten: 2 Mal
Mit folgendem Code funktioniert es bei mir:
Das Tool habe ich mittels des Installationsprogramm auf meinem Rechner installiert. Anschließend habe ich die Datei "Stylishs.skf" in das Verzeichnis der Anwendung kopiert.
Gruß, Olaf
Code: Alles auswählen
#include "Common.ch"
#pragma Library("ascom10.lib")
PROCEDURE AppSys
SET CHARSET TO ANSI
RETURN
Func Main()
Local oSkin
oSkin := ActiveXObject():create("SkinCrafter.SCSkin2")
oSkin:InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
oSkin:InitDecoration(1)
oSkin:LoadSkinFromFile("Stylish.skf")
oSkin:ApplySkin()
msgbox("Test")
Gruß, Olaf
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Hallo Olaf,
Vielen Dank, dein Code funktioniert jetzt bei mir auch, nur der eXPress++ Dialog verweigert.
Schade ... Werde mal Roger kontaktieren. Jedenfalls super dass es grundsätztlich läuft, sieht super aus.
Grüsse
Rudolf
Vielen Dank, dein Code funktioniert jetzt bei mir auch, nur der eXPress++ Dialog verweigert.
Schade ... Werde mal Roger kontaktieren. Jedenfalls super dass es grundsätztlich läuft, sieht super aus.
Grüsse
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Hallo Jimmy,
danke, sieht gut aus. Aber ich suche etwas, was nur meine Applikation ändert. Und das ohne Umstellungen im Betriebssystem.
Überigends habe auch das gefunden, sieht auch super aus, ist aber leider nur auf japanisch.
http://www.ksky.ne.jp/%7Eseahorse/mtate2/
Grüsse
Rudolf
danke, sieht gut aus. Aber ich suche etwas, was nur meine Applikation ändert. Und das ohne Umstellungen im Betriebssystem.
Überigends habe auch das gefunden, sieht auch super aus, ist aber leider nur auf japanisch.
http://www.ksky.ne.jp/%7Eseahorse/mtate2/
Grüsse
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net
- AUGE_OHR
- Marvin
- Beiträge: 12906
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 45 Mal
hi,
per Xbase++ Presentation Parameter ändern was Xbase++ ist.
Per API kommt man auch an "Windows" Parts ran, wie z.B. die Titlebar
( s.h. Greg Doran, "Make a Custom TitleBar using the Win-API" ).
Vielleicht sollte man eine neuen Thread aufmachen und dort dann die
verschiedenen Möglichkeiten aufzeichen und disskutieren.
gruss by OHR
Jimmy
was genau willst du den ändern ? Im Grunde kannst du doch (fast) allesRudolf hat geschrieben: Aber ich suche etwas, was nur meine Applikation ändert.
per Xbase++ Presentation Parameter ändern was Xbase++ ist.
Per API kommt man auch an "Windows" Parts ran, wie z.B. die Titlebar
( s.h. Greg Doran, "Make a Custom TitleBar using the Win-API" ).
Vielleicht sollte man eine neuen Thread aufmachen und dort dann die
verschiedenen Möglichkeiten aufzeichen und disskutieren.
gruss by OHR
Jimmy
- Rudolf
- Programmier-Gott
- Beiträge: 1418
- Registriert: Mo, 02. Jan 2006 23:03
- Wohnort: Salzburg/Österreich
- Kontaktdaten:
Hallo Jimmy,
mit Skincrafter sehen die Programme wesentlich besser aus, wie schon gesagt, der Kunde entscheidet auch über die Optik. Je besser die Oberfläche aussieht, umso leistungsfähiger wirkt ein Programm.
Die Möglichkeit mit Skincrafter einfach nur mit ein paar Programmzeilen das Aussehen wesentlich zu verbessern, hätte mir am besten gefallen.
Aber die Idee mit einem eigenen Thread für sowas finde ich gut.
Grüsse
Rudolf
mit Skincrafter sehen die Programme wesentlich besser aus, wie schon gesagt, der Kunde entscheidet auch über die Optik. Je besser die Oberfläche aussieht, umso leistungsfähiger wirkt ein Programm.
Die Möglichkeit mit Skincrafter einfach nur mit ein paar Programmzeilen das Aussehen wesentlich zu verbessern, hätte mir am besten gefallen.
Aber die Idee mit einem eigenen Thread für sowas finde ich gut.
Grüsse
Rudolf
Rudolf Reinthaler
http://www.formcommander.net
http://www.formcommander.net