 |
| New Rich Rext Format | |
| guest2 | 13-Aug-2007/16:15:13+2:00 |
Wahoooo, vous avez vu ça les gars:
REBOL [Title: "Drop File Test"]
win: make gob! [text: "Test Window" offset: 100x100 size: 600x200]
append win gt: make gob! [
size: win/size
text: [bold "Drop a file on me, s'il vous plaît."]
]
system/view/event-port: ep: open [scheme: 'event]
ep/awake: func [event] [
print ["EVENT:" event/type event/offset]
switch event/type [
close [quit]
drop-file [
repend gt/text ['newline form event/data]
show gt
]
]
tail? system/view/screen-gob
]
view win
C'est pour présenter la gestion du drag'n drop dans R3. Mais je suis bien plus impressioné par le fait qu'ils ont enfin intégré un rich text format. LA bonne nouvelle c'est qu'il semble qu'on ait plus besoin de gérer des objets para font ou edge, tout étant intégré dans le block 'text. Je suis curieux de savoir si la gestion du caret fonctionne (pour la saisie) et aussi si on peut gérer des blocs de texte imbriqués avec héritage des propriétés de style. Je suis impatient de tester tout ça, ça m'a l'air bien puissant.... Je retire donc ce que j'ai dit précédemment, R3 s'annonce plein de promesses réalisées. | |
| GreG | 13-Aug-2007/20:43:53+2:00 |
| Enfin du drag&drop! Oui ce sera cool! | |
| guest2 | 13-Aug-2007/23:40:30+2:00 |
| Hum, je me suis peut-être enflammé, rien ne dit qu'on pourra gérer plusieurs styles au sein d'un même texte. La saisie RTF n'est sans doute pas pour demain | |
| DideC | 21-Aug-2007/21:54:51+2:00 |
| Si si, on peut ! Un autre teasert  ; Juste un petit bout de dialect RichText ;;; TEXT normal-font: make system/standard/font [] normal-para: make system/standard/para [] big-font: make system/standard/font [ size: 16 color: 139.69.19 name: "Tahoma" ; shadow: 2x2 ] raster-font: make system/standard/font [ name: "Fixedsys" size: 9 ] my-para: make system/standard/para [ wrap?: false ] gobt: make gob! [offset: 0x0] gobt/size: gobc/size gobt/text: [ para my-para scroll scr font big-font underline "Underline text example^/font size 15^/no wrap" newline para normal-para font normal-font underline off 255.0.0 "Hello World.^/This is normal red text." newline 0.200.0 bold "This is green bold text. It should wrap correctly.^/" bold off italic 0.0.255 "This is blue italic text." newline drop 3 "Dropped 3 last attributes." newline font raster-font 0.0.0 bold off "Fixed font test" italic on "Fixed font italic test" newline drop "End of test." newline ] ; Avec un petit peu de code en plus, ça s'affiche. | |
|
Login required to Post. | |