Random Wallpaper Creator

Vorstellungen von Programmen, welche mit Lazarus erstellt wurden.
Antworten
shokwave
Beiträge: 475
Registriert: Do 15. Nov 2007, 16:58
OS, Lazarus, FPC: Win11/Ubuntu Budgie (L 3.0 FPC 3.2.2)
CPU-Target: i386, x64
Wohnort: Gera

Random Wallpaper Creator

Beitrag von shokwave »

Hallo,

ich wollte hier mal mein aktuelles Projekt vorstellen. Es wechselt bei jedem Systemstart das Hintergrundbild. Dabei wählt es zufällig aus einer Liste von Bildern.

Bild

Features:
- rein zufällige Auswahl
- Wechsel über Doppelklick aufs TrayIcon (nur unter Linux nicht)
- Vorschaufunktion
- Resourcenschonend *g*

ToDo:
- Eine Doku (solange müssen die Infos hier reichen ;))
- Timer (wechselt nach Ablauf einer Zeit das Bild)
- verhindern, das 2x hintereinander das selbe Bild gewählt wird
- Performance (unter Delphi liefs irgendwie schneller)
-Portierung nach Linux (?)
- Überarbeitung der Filter vom FileOpenDialog (an opBitmap anpassen)

Lizenztechnisch habe ich mich noch nicht entschieden, weiss aber auch grad nicht, wie das mit opBitmap aussieht(GPL?). Weiss da jemand mehr, was man nehmen kann/sollte?

Für konstruktive Kritik zum Programm bin ich immer zu haben und für Bugreports dankbar. Momentan läuft bei mir WindowsXP Home, es sollte auch auf allen anderen Windows-32bit Versionen laufen - nur wissen tue ich es nicht... :cry:

Viel Spaß beim testen und danke fürs Feedback.

[edit 20.01.2008]
Der Qellcode ist jetzt auch Linux fähig. (bisher nur auf SUSE 10.3 mit KDE getestet)
-Unter Linux müssen die Icons (Form1 u. TrayIcon1) ggf. neu ausgewählt werden.
-Unter Win32 muss der Pfad fürs Icon, in der rwc.rc, angepasst werden.

[edit 22.02.2008]
Das Progi ist jetzt auch multilingual (Deutsch und Englisch).

[edit 01.02.2008]
Da das Progi bei mir stabil läuft und keiner einen Bug zu vermelden hat. Hab ich einfach mal die Versionsnummer auf 1.0 gesetzt und das Betastadium beendet.


Download des Quellcodes, der Anleitung und der Binaries unter shoKwave.de


mfg Ingo
Zuletzt geändert von shokwave am Fr 1. Feb 2008, 20:39, insgesamt 6-mal geändert.
mfg Ingo

Benutzeravatar
af0815
Lazarusforum e. V.
Beiträge: 6848
Registriert: So 7. Jan 2007, 10:20
OS, Lazarus, FPC: FPC fixes Lazarus fixes per fpcupdeluxe (win,linux,raspi)
CPU-Target: 32Bit (64Bit)
Wohnort: Burgenland
Kontaktdaten:

Beitrag von af0815 »

GPL und leichtere Varianten klingen gut, es hängt natürlich auch davon ab, was du eingebunden hast.

Bezüglich OpBitmap kann die sicherlich Theo weiterhelfen.

Die Quellen könntest du über die Funktion Verzeichnis säubern bzw. über den Projektexport bereinigen. Dann sind die zusätzlich vom Compiler erzeugten Dateien nicht dabei und der reine Quelltext bleibt über.
Blöd kann man ruhig sein, nur zu Helfen muss man sich wissen (oder nachsehen in LazInfos/LazSnippets).

pluto
Lazarusforum e. V.
Beiträge: 7192
Registriert: So 19. Nov 2006, 12:06
OS, Lazarus, FPC: Linux Mint 19.3
CPU-Target: AMD
Wohnort: Oldenburg(Oldenburg)

Beitrag von pluto »

und das ausfürbare Programm kannst du mit upx und strip kleiner machen.... dafür habe ich mir ein Script erstellen was ich mit Natulus aufrufen kann....
MFG
Michael Springwald

shokwave
Beiträge: 475
Registriert: Do 15. Nov 2007, 16:58
OS, Lazarus, FPC: Win11/Ubuntu Budgie (L 3.0 FPC 3.2.2)
CPU-Target: i386, x64
Wohnort: Gera

Beitrag von shokwave »

Danke für eure Antworten.

Ich hab grad (unter dem Link oben) die aktelle Version ungeloaded und dabei auch eure Tips beachtet. Habe noch zusätzlich die .rc und .ico Datei hinzugefügt, da sonst das Icon fehlt. In der .rc muss dann nur noch der Pfad angpasst werden (mit relativem Pfad funzts nich).

StillToDo:
- Eine Doku (solange müssen die Infos hier reichen )
- verhindern, das 2x hintereinander das selbe Bild gewählt wird
- Performance (unter Delphi liefs irgendwie schneller)
- Portierung nach Linux (?)
mfg Ingo

pluto
Lazarusforum e. V.
Beiträge: 7192
Registriert: So 19. Nov 2006, 12:06
OS, Lazarus, FPC: Linux Mint 19.3
CPU-Target: AMD
Wohnort: Oldenburg(Oldenburg)

Beitrag von pluto »

ich möchte ja nix sagen, aber dafür habe ich unter Linux folgendes Scrip geschrieben:
(edit: bzw, gefunden und angepasst *G*)

Code: Alles auswählen

#!/bin/bash
PRBG_WALLPAPER_DIR="/media/hda7/grafiken1/"
PRBG_DEFAULT_LINK="/home/pluto/EigeneGrafiken/default_bg"
IMG_WILDCARDS="*.bmp *.gif *.jpg *.pcx *.png *.xpm"
 
LAST_CURRENT_DIR=$PWD
cd "${PRBG_WALLPAPER_DIR}"
max_index=`find "$PRBG_WALLPAPER_DIR" ! -name "*.db" 2>/dev/null|wc -l`
#max_index=`ls -1 $IMG_WILDCARDS 2>/dev/null|wc -l`
item_index=$RANDOM
 
let "item_index %= max_index+1"
let "item_index += 1"
 
#IMG_FILE=`find "$PRBG_WALLPAPER_DIR" ! -name "*.db" 2>/dev/null|head -$item_index|tail -1`
#IMG_FILE=`ls -1 $IMG_WILDCARDS 2>/dev/null|head -$item_index|tail -1`
IMG_FILE=`ls -1 $IMG_WILDCARDS 2>/dev/null|head -$item_index|tail -1`
 
#cd "${LAST_CURRENT_DIR}"
 
#if [ -e "${PRBG_DEFAULT_LINK}" ]; then 
#  rm "${PRBG_DEFAULT_LINK}"
#fi
 
#echo $IMG_FILE
 
gconftool-2 --type=string --set /desktop/gnome/background/picture_filename "${PRBG_WALLPAPER_DIR}${IMG_FILE}"
#gconftool-2 --type=string --set /desktop/gnome/background/picture_filename "${IMG_FILE}"
 
#find . ! -printf "%h/%f|$test. \n" ! -type d $1 -exec $test=md5sum {} \;
Ich hoffe die Unordnung stört dich nicht, ich bin noch nicht so gut in ShellScript... Object Pascal ist mir einfach lieber.... Aber für manche Aufgaben nutzte ich ganz gerne die Shell....
MFG
Michael Springwald

Christian
Beiträge: 6079
Registriert: Do 21. Sep 2006, 07:51
OS, Lazarus, FPC: iWinux (L 1.x.xy FPC 2.y.z)
CPU-Target: AVR,ARM,x86(-64)
Wohnort: Dessau
Kontaktdaten:

Beitrag von Christian »

ich möchte ja nix sagen, aber dafür habe ich unter Linux folgendes Scrip geschrieben
nun hau mal nicht so auf die kacke, das script stammt von http://wiki.debianforum.de/Scripte
W.m.k.A.h.e.m.F.h. -> http://www.gidf.de/

pluto
Lazarusforum e. V.
Beiträge: 7192
Registriert: So 19. Nov 2006, 12:06
OS, Lazarus, FPC: Linux Mint 19.3
CPU-Target: AMD
Wohnort: Oldenburg(Oldenburg)

Beitrag von pluto »

(habe ich doch auch dazu geschrieben in () das ich das Script gefunden habe oder ?, ich habe es halt angepasst für meine zwecke*G*)
MFG
Michael Springwald

shokwave
Beiträge: 475
Registriert: Do 15. Nov 2007, 16:58
OS, Lazarus, FPC: Win11/Ubuntu Budgie (L 3.0 FPC 3.2.2)
CPU-Target: i386, x64
Wohnort: Gera

Beitrag von shokwave »

Da sich in den letzten Tagen und Wochennbei meinem Projekt so einiges getan hat, hab ich mal den ersten Beitrag aktuallisiert.

Wer das Programm, trotz Plutos Script, haben mag (mittlerweile auch für Linux), kanns auf meiner HP downloaden(siehe oben).

Bugmeldungen, Verbesserungsvorschläge und Glückwünsche sind allzeit willkommen.

mfg Ingo
mfg Ingo

Euklid
Lazarusforum e. V.
Beiträge: 2808
Registriert: Fr 22. Sep 2006, 10:38
OS, Lazarus, FPC: Lazarus v2.0.10, FPC 3.2.0
Wohnort: Hessen
Kontaktdaten:

Beitrag von Euklid »

Schönes Projekt!

Euklid

Antworten