- ;Par Bob le Pointu, 11 Février 2004
-
- ;Création du dialog
- ;P.S.:Si quelqu'un a une méthode pour générer dynamiquement des dialogs, çà me serait très utile ;)
- dialog asciitable {
- title "Table ASCII (Extended)"
- size -1 -1 160 55
- option dbu
-
- list 1, 0 0 10 60
- list 2, 10 0 10 60
- list 3, 20 0 10 60
- list 4, 30 0 10 60
- list 5, 40 0 10 60
- list 6, 50 0 10 60
- list 7, 60 0 10 60
- list 8, 70 0 10 60
- list 9, 80 0 10 60
- list 10, 90 0 10 60
- list 11, 100 0 10 60
- list 12, 110 0 10 60
- list 13, 120 0 10 60
- list 14, 130 0 10 60
- list 15, 140 0 10 60
- list 16, 150 0 10 60
- }
-
- ;Le seul évènement : On prend le texte de l'editbox, on y ajoute le code ascii, puis on copie l'ensemble dans l'editbox à la place de l'ancien texte
- on *:dialog:asciitable:sclick:*: {
- if ( $did < 17 ) {
- editbox -af $editbox($active) $+ $did(asciitable,$did).seltext
- }
- }
-
- ;La commande qui permet de générer les caractères ASCII
- alias makeasciitable {
- var %i = 128
- var %c = 0
- var %id = 1
- while ( %i < 256 ) {
- did -a asciitable %id $chr( %i )
- inc %i
- inc %c
- if ( %c == 8 ) {
- var %c = 0
- inc %id
- }
- }
- }
-
- ;Pour lancer la table depuis n'importe quel menu, c'est toujours pratique
- ;On le désactive si le dialog est déjà actif
- menu * {
- $iif( $dialog(asciitable), $style(2)) Table ASCII Extended : {
- dialog -m asciitable asciitable
- makeasciitable
- }
- }
;Par Bob le Pointu, 11 Février 2004
;Création du dialog
;P.S.:Si quelqu'un a une méthode pour générer dynamiquement des dialogs, çà me serait très utile ;)
dialog asciitable {
title "Table ASCII (Extended)"
size -1 -1 160 55
option dbu
list 1, 0 0 10 60
list 2, 10 0 10 60
list 3, 20 0 10 60
list 4, 30 0 10 60
list 5, 40 0 10 60
list 6, 50 0 10 60
list 7, 60 0 10 60
list 8, 70 0 10 60
list 9, 80 0 10 60
list 10, 90 0 10 60
list 11, 100 0 10 60
list 12, 110 0 10 60
list 13, 120 0 10 60
list 14, 130 0 10 60
list 15, 140 0 10 60
list 16, 150 0 10 60
}
;Le seul évènement : On prend le texte de l'editbox, on y ajoute le code ascii, puis on copie l'ensemble dans l'editbox à la place de l'ancien texte
on *:dialog:asciitable:sclick:*: {
if ( $did < 17 ) {
editbox -af $editbox($active) $+ $did(asciitable,$did).seltext
}
}
;La commande qui permet de générer les caractères ASCII
alias makeasciitable {
var %i = 128
var %c = 0
var %id = 1
while ( %i < 256 ) {
did -a asciitable %id $chr( %i )
inc %i
inc %c
if ( %c == 8 ) {
var %c = 0
inc %id
}
}
}
;Pour lancer la table depuis n'importe quel menu, c'est toujours pratique
;On le désactive si le dialog est déjà actif
menu * {
$iif( $dialog(asciitable), $style(2)) Table ASCII Extended : {
dialog -m asciitable asciitable
makeasciitable
}
}