Accueil > > > PIC-VIEWER
PIC-VIEWER
Information sur la source
Description
Pic-viewer est un chargeur d'image entierement en picwin.
L'image une fois ouverte sera redimensionné dans un cadre. Vous pouvez regarder l'image dans sans taille rélle en double-cliquant sur celle-ci dans la pré-visualisation.
Pour l'ouvrir: /pic
ps: utilisation du code de $fileinfo par FiberOptics. N'ayant pas pu me decider entres les flags -d et -o j'ai opter pour le -d. Un @window s'ouvre donc dans la barre de tâche.
Source
- alias pic {
- window -c @pic
- window -Bdk0pCk0zh +d @pic 0 0 400 400
- drawrect -r @pic $rgb(100,100,100) 1 0 0 400 400
- drawrect -fr @pic $rgb(117,134,172) 1 1 1 398 398
- drawline -r @pic $rgb(100,100,100) 1 0 15 400 15
- drawtext -r @pic $rgb(255,255,255) Verdana 10 5 2 Pic viewer
- drawtext -r @pic $rgb(255,255,255) Verdana 10 390 2 X
- drawline -r @pic $rgb(100,100,100) 1 10 30 63 30
- drawline -r @pic $rgb(100,100,100) 1 10 30 10 52 70 52 70 35 62 30
- drawtext -r @pic $rgb(255,255,255) Verdana 10 25 35 Open
- drawrect -r @pic $rgb(255,255,255) 1 110 30 250 340
- }
- menu @pic {
- sclick:{
- if $inrect($mouse.x,$mouse.y,10,30,62,23) {
- set %view.directory $sfile(c:\,Choose an image,ok)
- if (.jpg isin %view.directory || .bmp isin %view.directory || .png isin %view.directory) { set %format.good yes }
- else { set %format.good no }
- if %view.directory && %format.good == yes {
- drawrect -fr @pic $rgb(117,134,172) 1 2 380 395 15
- drawpic -sm @pic 115 35 240 330 $shortfn(%view.directory)
- drawtext -r @pic $rgb(255,255,255) Verdana 10 5 380 $shortfn(%view.directory)
- }
- }
- if $inrect($mouse.x,$mouse.y,389,5,391,5) { window -c @pic }
- }
- dclick:{
- if $inrect($mouse.x,$mouse.y,110,30,250,340) {
- window -Bdk0pCk0zh +d @view 0 0 $gettok($fileinfo(%view.directory,Dimensions),-3,32) $gettok($fileinfo(%view.directory,Dimensions),-1,32)
- drawpic @view 0 0 $shortfn(%view.directory)
- }
- }
- }
- menu @view {
- Close:/window -c @view
- }
- alias fileinfo {
- if !$isid { echo -ac info * $!fileinfo: This function can only be used as an identifier. | return }
- var %file = $shortfn($1)
- if !$isfile(%file) { echo -ac info * $!fileinfo: Incorrect filepath specified. | return }
- var %categories = $&
- Name Size Type DateModified DateCreated DateAccessed Attributes Status Owner Author Title $&
- Subject Category Pages Comments Copyright Artist AlbumTitle Year TrackNumber Genre Duration $&
- BitRate Protected CameraModel DatePictureTaken Dimensions . . EpisodeName ProgramDescription . $&
- Audiosamplesize Audiosamplerate Channels Company Description FileVersion ProductName ProductVersion
- if $2 == $null {
- echo -ac info * $!fileinfo: Category missing.
- echo -a Categories: $remove(%categories,.)
- return
- }
- var %tmp = $ticks
- var %objShell = a $+ %tmp, %objFolder = b $+ %tmp, %objFile = c $+ %tmp
- var %separator = $iif($0 == 3,$3,$lf), %result
- .comopen %objShell shell.application
- if !$comerr {
- %tmp = $com(%objShell,namespace,1,bstr,$nofile(%file),dispatch* %objFolder)
- if $com(%objFolder) {
- %tmp = $com(%objFolder,parsename,1,bstr,$nopath(%file),dispatch* %objFile)
- if $com(%objFile) {
- tokenize 32 $remove($2,.)
- while $0 {
- if $findtok(%categories,$1,1,32) {
- %tmp = $com(%objFolder,getdetailsof,9,dispatch,%objFile,uint,$calc($ifmatch - 1))
- %tmp = $iif($com(%objFolder).result,$ifmatch,0)
- %result = %result $iif($prop == raw,%tmp,$1: %tmp) %separator
- }
- tokenize 32 $2-
- }
- .comclose %objFile
- }
- .comclose %objFolder
- }
- .comclose %objShell
- }
- return $left(%result,- $+ $len(%separator))
- }
- on *:load:{ echo -a Pic viewer loaded [ /pic ] | echo -a Thanks for FiberOptics for $fileinfo }
alias pic {
window -c @pic
window -Bdk0pCk0zh +d @pic 0 0 400 400
drawrect -r @pic $rgb(100,100,100) 1 0 0 400 400
drawrect -fr @pic $rgb(117,134,172) 1 1 1 398 398
drawline -r @pic $rgb(100,100,100) 1 0 15 400 15
drawtext -r @pic $rgb(255,255,255) Verdana 10 5 2 Pic viewer
drawtext -r @pic $rgb(255,255,255) Verdana 10 390 2 X
drawline -r @pic $rgb(100,100,100) 1 10 30 63 30
drawline -r @pic $rgb(100,100,100) 1 10 30 10 52 70 52 70 35 62 30
drawtext -r @pic $rgb(255,255,255) Verdana 10 25 35 Open
drawrect -r @pic $rgb(255,255,255) 1 110 30 250 340
}
menu @pic {
sclick:{
if $inrect($mouse.x,$mouse.y,10,30,62,23) {
set %view.directory $sfile(c:\,Choose an image,ok)
if (.jpg isin %view.directory || .bmp isin %view.directory || .png isin %view.directory) { set %format.good yes }
else { set %format.good no }
if %view.directory && %format.good == yes {
drawrect -fr @pic $rgb(117,134,172) 1 2 380 395 15
drawpic -sm @pic 115 35 240 330 $shortfn(%view.directory)
drawtext -r @pic $rgb(255,255,255) Verdana 10 5 380 $shortfn(%view.directory)
}
}
if $inrect($mouse.x,$mouse.y,389,5,391,5) { window -c @pic }
}
dclick:{
if $inrect($mouse.x,$mouse.y,110,30,250,340) {
window -Bdk0pCk0zh +d @view 0 0 $gettok($fileinfo(%view.directory,Dimensions),-3,32) $gettok($fileinfo(%view.directory,Dimensions),-1,32)
drawpic @view 0 0 $shortfn(%view.directory)
}
}
}
menu @view {
Close:/window -c @view
}
alias fileinfo {
if !$isid { echo -ac info * $!fileinfo: This function can only be used as an identifier. | return }
var %file = $shortfn($1)
if !$isfile(%file) { echo -ac info * $!fileinfo: Incorrect filepath specified. | return }
var %categories = $&
Name Size Type DateModified DateCreated DateAccessed Attributes Status Owner Author Title $&
Subject Category Pages Comments Copyright Artist AlbumTitle Year TrackNumber Genre Duration $&
BitRate Protected CameraModel DatePictureTaken Dimensions . . EpisodeName ProgramDescription . $&
Audiosamplesize Audiosamplerate Channels Company Description FileVersion ProductName ProductVersion
if $2 == $null {
echo -ac info * $!fileinfo: Category missing.
echo -a Categories: $remove(%categories,.)
return
}
var %tmp = $ticks
var %objShell = a $+ %tmp, %objFolder = b $+ %tmp, %objFile = c $+ %tmp
var %separator = $iif($0 == 3,$3,$lf), %result
.comopen %objShell shell.application
if !$comerr {
%tmp = $com(%objShell,namespace,1,bstr,$nofile(%file),dispatch* %objFolder)
if $com(%objFolder) {
%tmp = $com(%objFolder,parsename,1,bstr,$nopath(%file),dispatch* %objFile)
if $com(%objFile) {
tokenize 32 $remove($2,.)
while $0 {
if $findtok(%categories,$1,1,32) {
%tmp = $com(%objFolder,getdetailsof,9,dispatch,%objFile,uint,$calc($ifmatch - 1))
%tmp = $iif($com(%objFolder).result,$ifmatch,0)
%result = %result $iif($prop == raw,%tmp,$1: %tmp) %separator
}
tokenize 32 $2-
}
.comclose %objFile
}
.comclose %objFolder
}
.comclose %objShell
}
return $left(%result,- $+ $len(%separator))
}
on *:load:{ echo -a Pic viewer loaded [ /pic ] | echo -a Thanks for FiberOptics for $fileinfo }
Conclusion
Pas de bug décelés jusqu'à présent (merci aux beta-testeurs).
Critique bonne ou mauvaise, aidez moi à l'amélioré =p
Historique
- 22 juillet 2005 22:01:06 :
- Modification d'un menu.
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Comment mettre une image de fond ds les pv et le gen plz? jai tout dé sof sa ds mon script :) [ par roxorz ]
Comment mettre une image de fond ds les pv et le gen plz? jai tout dé sof sa ds mon script :) Vla LoL :)
mettre une image sur le general [ par LALIE ]
coucouj'aimerais savoir comment mettre une image sur le general et un privé mercikiss
mettre une image sur le general [ par LALIE ]
coucouDonc voila je voudrais mettre une image sur le general et une differente en pv mais je ne trouve pas komen faire donc si kkun pouveit m'aider ce
redimensionner image [ par SirTooN ]
bonjourvoila ma question est en somme toute bete, peut on ous Mirc redimensionner une image en JPG, modifier sa resolution, sa taille ou autre ?voila
Dégradé [ par Bloock ]
Bon voila, je vais faire un lecteur mp3 en picwin, et j'aimerai savoir comment on fait [/b]un dégradé dans une fenêtre Picwin[/b]! Merci d'avance <img
Scripteur, script, creation... [ par titeuf28310 ]
Ben voilà, je debute dans le scripting, j'ai decider, pour apprendre, de prendre le mirc 6.14 et de faire direct mon propre script !J'aurai 2 ou 3 com
Background [ par Eiffel ]
Salutations tous.J'ai placer le code suivant dans les popups channel:Changer le fond:{ %background = " $+ $dir="Selecionne ton image" $+ " %backgrou
Aide Socket & picwin [ par _VeSpArO_ ]
Salut tout le monde je voulai savoir comment stocker un fichier txt d'un site dans un fichier .txt ou autre dans mon mirc.CAD: telecharger par exemple
Picwin je pense lol jsuis meme pas sur du nom :s [ par Panther007 ]
Salut :) Bon je vous dit en quoi j'aimerais me faire aider , j'aimerais me fabriquer un jeu de Ping pong mais avant il faut que je sache comment utili
Dialog + Picwin [ par DiGhan ]
Bonjour,Voilà , j'ai plusieurs dialog, dans lequel je voudrais inclure des picwin.J'aimerais savoir comment faire pour bouger le dialog quand la title
|
Derniers Blogs
[MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER[MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER par phil
Un post rapide pour vous informer de la disponibilité de la vidéo de ma présentation sur SharePoint 2010 & Team Foundation Server. http://www.microsoft.com/france/vision/mstechdays10/Webcast.aspx?EID=20215d48-02e3-4d43-8c36-e53505c3b316 Dans la ...
Cliquez pour lire la suite de l'article par phil [MSTD10] SQL SERVER 2008 POUR LES DéVELOPPEURS ET VISUAL STUDIO TEAM SYSTEM DATABASE EDITION[MSTD10] SQL SERVER 2008 POUR LES DéVELOPPEURS ET VISUAL STUDIO TEAM SYSTEM DATABASE EDITION par Miiitch
Lors de cette session que j'ai animé avec Rui , j'ai eu l'occasion de présenter, en plus des nouveautés de SQL Server 2008, comment utiliser l'édition "database" de Visual Studio 2008. Le principe? Avoir les mêmes outils lors que l'on travaille avec une b...
Cliquez pour lire la suite de l'article par Miiitch [WF4] LOCALISER SIMPLEMENT UNE ACTIVITé ET SON DESIGNER WPF[WF4] LOCALISER SIMPLEMENT UNE ACTIVITé ET SON DESIGNER WPF par JeremyJeanson
La localisation . vous connaissez ce system miraculeux qui permet à votre application de s'afficher dans la langue de l'utilisateur (à condition de l'avoir intégrée dans votre programme). Comment mettre en place la localisation dans WF4? Cette question m'...
Cliquez pour lire la suite de l'article par JeremyJeanson [TECHDAYS 2010] WEBCASTS ET SLIDES[TECHDAYS 2010] WEBCASTS ET SLIDES par Audrey
Les webcasts des sessions des Techdays 2010 sont maintenant disponibles en ligne ! Me concernant, voici les slides et le webcast de la session Blend 3 / Skechtflow : Dessinez c'est gagné ! (animée avec Michel Perfetti ) Les slides et le webcast : Blend 3/...
Cliquez pour lire la suite de l'article par Audrey NDEPEND V3. J'ADORE SON INTéGRATION AVEC VS2010NDEPEND V3. J'ADORE SON INTéGRATION AVEC VS2010 par tja
Après une petite introduction à son utilisation que vous pouvez lire ici j'ai également eu envie d'installer ma copie et de jouer un peu avec. Après les premières minutes de son utilisation. J'ai tout de suite ADORE. L'utilisation intuitive sans besoi...
Cliquez pour lire la suite de l'article par tja
Forum
INSTALLATION ANOPEINSTALLATION ANOPE par Julien5786
Cliquez pour lire la suite par Julien5786
Logiciels
Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor Xlite (v 3.0 build 41150)XLITE (V 3.0 BUILD 41150)c'est un logiciel qui permet de téléphoner par Internet à l'aide d'un compte SIP pratique pour le... Cliquez pour télécharger Xlite Academy System (10.9.3.0)ACADEMY SYSTEM (10.9.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|