Your high-end Amiga!AmiKit turns your PC into high-end Classic Amiga environment! 
Welcome to AmiKit Support Forum!

(Click here for main AmiKit website)
none
 
  Forums Search Register Reply Statistics FAQ  DONATE 
I have a suggestion AmiKit Support Forum / I have a suggestion /

Change Theme with Background Patterns and Requester

Author Anonymous
Guest
#1 Posted: 11 Jan 2006 16:32 
You can Change all of this !!

Example !
Load your Theme ..

1. Mkdir in your Theme Folder four new Folder 1.Background 2.Patterns 3.Requester 4.OpusWork
into OpusWork a new Folder Environment

Copy your Pic for Desktop in the Folder Background
Copy your PIc for Window in the Folder Patterns
Copy your Pic for Requester in the Folder Requester

2. Edit DOpus .... Settings/Environment Desktop,Window,requester
with your own PIctures goto the new generated Folder and select the picture from here !

3. Copy from Opus5:Environment the Configfile called Workbench to (DopusWork/Environment) in the selected Theme Folder.

4.Edit the Script from MorpheuZ with texteditor
Copy this Line !!
Copy >NIL: DOpusWork TO DOpus5: CLONE ALL
for
Copy >NIL: Prefs TO SYS:Prefs/ CLONE ALL QUIET

5.Save The Script from MorpheuZ

Greetings : Amifan

Author Anonymous
Guest
#2 Posted: 10 Apr 2006 16:17 
Mein MorpheuZ Script ...
ADD:GoldenEye
ADD:DarkNowee
ADD:PaperBlue

Check the Folder in the Scriptand create it!
You can now change Truetype, Themes with Backround PIcture on the Fly

********************************************************************** *************
; written by Jan Zahurancik ?2005

UnSetENV ATS
UnSetENV ATS2
UnSetENV ATS3
UnSetENV ATS4
UnSetENV ATS5

Alias CopyR SYS:Prefs/Presets/AmiKit/Install/CopyReplace/Copy CLONE BUFFER=500 QUIET
failat 21

LAB START

CD ""

IF $AmiKitTTF EQ "1"
RequestChoice >ENV:ATS TITLE="MorpheuZ - Themen w?hler" BODY="Hier k?nnen Sie das Window Aussehen *nin Amikit ver?ndern.*n*nKlick auf einen Button zur Voransicht." GADGETS="Workbench default|Workbench light|Workbench mix|Almost|Milk|Milk colored|PaperBlue|imAZ|WorkbenchXP|DarkNowee|GoldenEye|Disable TrueType|Beenden"
ELSE
RequestChoice >ENV:ATS TITLE="MorpheuZ - Themen w?hler" BODY="Hier k?nnen Sie das Window Aussehen *nin Amikit ver?ndern.*n*nKlick auf einen Button zur Voransicht." GADGETS="Workbench default|Workbench light|Workbench mix|Almost|Milk|Milk colored|PaperBlue|imAZ|WorkbenchXP|DarkNowee|GoldenEye|Enable TrueType|Beenden"
ENDIF

;===Workbench default===
IF $ATS EQ "1"
CD KenOS4
set auth "Theme erstellt von Ken Lester"
EndIF

IF $ATS EQ "2"
CD KenOS4-light
set auth "Theme erstellt von Ken Lester"
EndIF

IF $ATS EQ "3"
CD Mix
set auth "Mixed theme"
EndIF

IF $ATS EQ "4"
CD Almost
set auth "Theme erstellt von Damir Sijakovic"
EndIF

IF $ATS EQ "5"
CD Milk
set auth "Theme erstellt von Miki"
EndIF

IF $ATS EQ "6"
CD Milk-colored
set auth "Theme erstellt von Miki"
EndIF

IF $ATS EQ "7"
CD PaperBlue
set auth "Theme erstellt von CnlPepper"
EndIF

IF $ATS EQ "8"
CD imAZ
set auth "Theme erstellt von Ken Lester"
EndIF

IF $ATS EQ "9"
CD WorkbenchXP
set auth "Buttons erstellt von Rebel"
EndIF

IF $ATS EQ "10"
CD DarkNowee
set auth "Buttons erstellt von Nowee"
EndIF

IF $ATS EQ "11"
CD GoldenEye
set auth "Buttons erstellt von Eye"
EndIF

IF $ATS EQ "12"
SKIP TRUETYPE
EndIF

IF $ATS GT "0"
SKIP PREVIEW
EndIF

QUIT



LAB PREVIEW

run >NIL: PicShow preview INFO OFF NAV OFF DETACH ON QUITOLD ON STICKYPOPUP OFF PRELOAD 0 ANIMATE OFF
Wait 1
RequestChoice >env:ATS2 TITLE="$auth" BODY="*nTheme aktualisieren?*n" GADGETS="Ja|Nein"
IF $ATS2 EQ "1"

CopyR TRUETYPE/Environment/workbench TO AmiKit:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1280x1024/Util ities/EXPANSION/Opus5/Environment/
CopyR TRUETYPE/Environment/workbench_noTTF TO DOpus5:Environment/
IF $AmiKitTTF EQ "1"
Copy >NIL: TRUETYPE TO DOpus5: CLONE ALL
ELSE
Copy >NIL: DOpusWork TO DOpus5: CLONE ALL
EndIF

Copy >NIL: Prefs TO SYS:Prefs/ CLONE ALL QUIET
SKIP APPLIED
ELSE
RX >NIL: "ADDRESS PICSHOW QUIT"
CD /
SKIP START BACK
EndIF

LAB TRUETYPEINFO

RequestChoice >NIL: TITLE="TrueType details" BODY="aktiviere/deaktiviere TrueTypeFonts automatik*nDiese Konfigurations Dateien werden ?berschrieben:*n*nENVARC:Sys/font.prefs*nENVARC:AWeb3/browser*nAmiKit: Internet/Ibrowse/Ibrowse.prefs*nDOpus5:Environment/workbench*n*nZum editieren konfiguriere die Fonts manuell:*n*nAmiKit:Prefs/Fonts settings*nAWeb Browser Fonts settings*nIBrowse HTML Fonts settings*nDirectory Opus Magellan II Environment:*n - Icon Display (Desktop and Windows)*n - Lister Display" GADGETS="OK"
SKIP TRUETYPE

LAB TRUETYPE

IF $AmiKitTTF EQ "1"

RequestChoice >ENV:ATS5 TITLE="TrueType Manager" BODY="M?chten sie die TrueTypeFonts in Amikit deaktivieren?.*n*nACHTUNG:*nAktueller Font-und relativ ben?tigte Dateien werden ?berschrieben*nvon der vorherigen nicht-TrueType Kongifuration!" GADGETS="Deaktiviere TrueType|Details...|Abbrechen"

IF $ATS5 EQ "1"

Copy >NIL: SYS:Internet/IBrowse/IBrowse_noTTF.prefs TO SYS:Internet/IBrowse/IBrowse.prefs CLONE QUIET
Copy >NIL: ENVARC:Sys/font_noTTF.prefs ENVARC:Sys/font.prefs CLONE QUIET
Copy >NIL: ENVARC:AWeb3/browser_noTTF TO ENVARC:AWeb3/browser CLONE QUIET
Copy >NIL: DOpus5:Environment/workbench_noTTF TO DOpus5:Environment/workbench CLONE QUIET

SetEnv AmiKitTTF 0
CopyR ENV:AmiKitTTF ENVARC:
EndIF

IF $ATS5 EQ "2"
SKIP TRUETYPEINFO BACK
EndIF

IF $ATS5 EQ "0"
QUIT
EndIF

ELSE

RequestChoice >ENV:ATS5 TITLE="TrueType Manager" BODY="Information zur Akitivierung der TrueTypeFonts in Amikit*n*nACHTUNG:*nVerschiedene konfigurations dateien werden ?berschrieben!*nRelativ zu den vorherigen installierten Fonts*nWERDEN GESPEICHERT.*nUm die alte Konfiguration wieder herzustellen starte das Tool nochmals" GADGETS="Aktiviere TrueType|Details...|Abbrechen"

IF $ATS5 EQ "1"

CD SYS:Prefs/Presets/AmiKit/Install/DisplayMode/
ECHO >ENV:AKscrmode `DisplayMode` FIRST 1 LEN 4

IF $AKscrmode EQ "5004" ;800x600
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/800x600
ENDIF

IF $AKscrmode EQ "5014" ;960x600
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1024x768
ENDIF

IF $AKscrmode EQ "5005" ;1024x768
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1024x768
ENDIF

IF $AKscrmode EQ "5006" ;1152x864
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1152x864
ENDIF

IF $AKscrmode EQ "5017" ;1280x720
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1280x1024
ENDIF

IF $AKscrmode EQ "5018" ;1280x768
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1280x1024
ENDIF

IF $AKscrmode EQ "5019" ;1280x800
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1280x1024
ENDIF

IF $AKscrmode EQ "501A" ;1280x960
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1280x1024
ENDIF

IF $AKscrmode EQ "5007" ;1280x1024
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1280x1024
ENDIF

IF $AKscrmode EQ "501C" ;1360x768
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1600x1200
ENDIF

IF $AKscrmode EQ "501D" ;1600x900
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1600x1200
ENDIF

IF $AKscrmode EQ "501E" ;1600x1024
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1600x1200
ENDIF

IF $AKscrmode EQ "501F" ;1600x1200
CD SYS:Prefs/Presets/AmiKit/Install/Screenmode/TRUETYPE/1600x1200
ENDIF

CopyR ENVARC:AWeb3/browser TO ENVARC:AWeb3/browser_noTTF
CopyR Prefs/Env-Archive/AWeb3/browser TO ENVARC:AWeb3/
CopyR ENVARC:AWeb3/browser TO ENV:AWeb3/

CopyR SYS:Internet/IBrowse/IBrowse.prefs TO SYS:Internet/IBrowse/IBrowse_noTTF.prefs
CopyR Internet/IBrowse/IBrowse.prefs TO SYS:Internet/IBrowse/

CopyR ENVARC:Sys/font.prefs TO ENVARC:Sys/font_noTTF.prefs
CopyR Prefs/Env-Archive/Sys/font.prefs TO ENVARC:Sys/

CopyR DOpus5:Environment/workbench TO DOpus5:Environment/workbench_noTTF
CopyR Utilities/EXPANSION/Opus5/Environment/workbench TO DOpus5:Environment/

SetEnv AmiKitTTF 1
CopyR ENV:AmiKitTTF ENVARC:

EndIF

IF $ATS5 EQ "2"
SKIP TRUETYPEINFO BACK
EndIF

IF $ATS5 EQ "0"
QUIT
ENDIF

EndIF

Wait-GUI sec=3 BIG WA windowtitle="aktualisiere..."
RequestChoice >ENV:ATS3 TITLE="TrueType Manager" BODY="Das aussehen des Font wurde ver?ndert.*n*nNeustart wird ben?tigt um den Fontsatz zu aktualisieren.*nSoll nun neu gestartet werden?*n*nWARTE BIS ALLE DISKAKTIVIT?TEN*nBEENDET WURDEN BEVOR DU FORTF?HRST" GADGETS="Neustart|Sp?ter..."
IF $ATS3 EQ "1"
Reboot
ELSE
QUIT
EndIF

LAB APPLIED

RX >NIL: "ADDRESS PICSHOW QUIT"
Wait-GUI sec=3 BIG windowtitle="aktualisiere..."
RequestChoice >ENV:ATS3 TITLE="MorpheuZ - Themen w?hler" BODY="Die ausgew?hlte Theme wurde gesetzt.*n*nNeustart wird ben?tigt um die Theme zu aktualisieren.*nSoll nun neu gestartet werden?*n*nWARTE BIS ALLE DISKAKTIVIT?TEN*nBEENDET WURDEN BEVOR DU FORTF?HRST" GADGETS="Neustart|Sp?ter..."
IF $ATS3 EQ "1"
Reboot
ELSE
UnSetENV ATS3
EndIF

Author Anonymous
Guest
#3 Posted: 10 Apr 2006 16:18 
ATTN:Change This"1280x1024" to your resolution

I have a suggestion AmiKit Support Forum / I have a suggestion / Change Theme with Background Patterns and Requester Top
Your Reply Click this icon to move up to the quoted message
 

 ?
Only registered users are allowed to post here. Please, enter your username/password details upon posting a message, or register first.
 
Online now: Guests - 3
Members - 1 [ AmiKit ]
Most users ever online: 123 [22 Apr 2016 12:58]
Guests - 123 / Members - 0