Coloration syntaxique sur le forum

[Fred]

Salut a tous,

J'ai activé provisoirement une extension pour avoir le code PB mis en forme dans vos posts. Si ca plait, je la laisserai activée, sinon, je la désactiverai. Comment l'utiliser ? Au lieu de mettre le code entre balise [ code ][ /code ], utiliser [ code-pb ][ /code-pb ].

Exemple:

Code : Tout sélectionner

If OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")

  ; Create an offscreen image, with a green circle in it.
  ; It will be displayed later
  ;
  If CreateImage(0, 300, 200)
    If StartDrawing(ImageOutput(0))
      Circle(100,100,50,RGB(0,0,255))  ; a nice blue circle...

      Box(150,20,20,20, RGB(0,255,0))  ; and a green box
      
      FrontColor(RGB(255,0,0)) ; Finally, red lines..
      For k=0 To 20
        LineXY(10,10+k*8,200, 0)
      Next
      
      DrawingMode(#PB_2DDrawing_Transparent)
      BackColor(RGB(0,155,155)) ; Change the text back and front colour
      FrontColor(RGB(255,255,255))
      DrawText(10,50,"Hello, this is a test")

      StopDrawing()
    EndIf
  EndIf

  ; Create a gadget to display our nice image
  ;
  ImageGadget(0, 0, 0, 0, 0, ImageID(0))
  
  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the Event
  ; isn't 0 and we just have to see what have happened...
  ;
  
  Repeat
    Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow  ; If the user has pressed on the window close button
  
EndIf

End   ; All the opened windows are closed automatically by PureBasic

En bonus il y a un bouton pour copier tout le code dans le clipboard

[Ar-S]

Plutôt cool ça merci.

[Micoute]

Merci Fred pour le partage, j'adore.

[Marc56]

Excellent, c'est bien plus lisible (même si perso je préfère un fond clair)
Très bien aussi d'avoir utilisé une fonte Sans Serif
Merci Fred
Tu vas l'installer aussi sur le forum us ?

[Fred]

J'attends de voir ce que vous en pensez.

[venom]

Cool, merci pour cet ajout. C'est plus lisible et ça apporte de la couleurs aux messages. C'est cool d'avoir garder les deux options pour ceux qui adhères moins.
J'adopte aussi






@++

[case]

superbe

[kernadec]

bjr
merci c'est cool
Peut être déplacer le menu "copier" qui se trouve maintenant
en partie caché par l'ascenseur vertical du code
Cordialement

[Mesa]

Personnellement je trouve que c'est indispensable, en tout cas ça aide bien.

Mais les couleurs sont un peu tristes, pourquoi ne pas utiliser le code couleur de purebasic, fond clair et jaune, etc. C'est vrai que le code couleur de pb fusille un peu les yeux, mais une fois qu'on y est habitué… le code semble plus lisible sur fond clair.

Pour info, chez moi, le bouton "copy" se trouve masqué par l'ascenseur.

M.

[falsam]

Étant partisan du thème sombre, ce style de coloration syntaxique est parfait. Merci Fred.

[Kwai chang caine]

Blanc sur noir, j'aime bien, c'est plus lisible que les fonds clairs pour mes vieux yeux
Et pourtant......comme dit MESA, je n'ai jamais quitté les couleurs d'origines de PB pour l'IDE, par respect pour l'auteur et par esprit de conservation alors noir/bleu sur jaune ça m'aurait trés bien été aussi
Maintenant sur ce sujet .....y'aura autant d'avis que de "PBiens"

Merci FRED, et encore bravo et merci pour le BackEnd C

[MLD]

cool Fred impec

[TazNormand]

Nickel Fred,

l'idéal (je sais je suis exigeant), serait qu'on ait un nouveau "bouton" pour insérer le code PureBasic, genre <pb/>, ça permettrait d'insérer aussi du code d'autre langage dans la balise "code" :

Code : Tout sélectionner

Sub vbCode()
  ; Ce code est en VBA
  If x=True Then
     Print "Hello World in VBA"
  End If
End Sub

Code : Tout sélectionner

   if x = #TRUE
      Print "Hello World"
   endif

[SPH]

J'essaye... :

Code : Tout sélectionner

; SPH(2006)
; PB4

InitSprite()
InitMouse()
InitKeyboard()

;SetPriorityClass_ ( GetCurrentProcess_ (), #IDLE_PRIORITY_CLASS )

If ExamineDesktops()
   dw.w=DesktopWidth(0)
   dh.w=DesktopHeight(0)
Else
   dw.w=1024
   dh.w=768
EndIf
dw2=dw/2
dh2=dh/2

dw1=dw/4
dw3=(dw/4)*3

OpenScreen(dw,dh,32,"")

;;;;;;;;;;;
;;;;;;;;;;;
autre:
rr1.f=Random(5)+Random(1000)/1000
rr2.f=Random(5)+Random(1000)/1000
vv1.f=Random(5)+Random(1000)/1000
vv2.f=Random(5)+Random(1000)/1000
bb1.f=Random(5)+Random(1000)/1000
bb2.f=Random(5)+Random(1000)/1000
or1.f=rr1
or2.f=rr2
ov1.f=vv1
ov2.f=vv2
ob1.f=bb1
ob2.f=bb2
cr1.f=0.001+Random(1000)/10000
cr2.f=0.001+Random(1000)/10000
cv1.f=0.001+Random(1000)/10000
cv2.f=0.001+Random(1000)/10000
cb1.f=0.001+Random(1000)/10000
cb2.f=0.001+Random(1000)/10000

a1.f=0.001+Random(1000)/35000
a2.f=0.002+Random(1000)/35000
a3.f=0.003+Random(1000)/35000
a4.f=0.001+Random(1000)/35000
a5.f=0.002+Random(1000)/35000
a6.f=0.003+Random(1000)/35000

;;;;;;;;;;;
Repeat ; Until xmouse<>xmouse2 Or ymouse<>ymouse2 Or KeyboardPushed(#PB_Key_All)

ExamineMouse()
xmouse=MouseDeltaX()/55 ; /x : x= sensibilité
ymouse=MouseDeltaY()/55 ; /x : x= sensibilité
;*****
ClearScreen(0)
StartDrawing(ScreenOutput())


;;;;;;;;;;;

For i=0 To dh-1
r1=63+Cos(rr1)*63
r2=63+Sin(rr2)*63
v1=63+Cos(vv1)*63
v2=63+Cos(vv2)*63
b1=63+Sin(bb1)*63
b2=63+Sin(bb2)*63

rr=r1+v1+b1
vv=r2+v2+b2

;LineXY(0,i,dw,i,RGB(b1+b2,r1+r2,v1+v2))
;LineXY(dw2,i,dw,i,RGB(b1+b2,r1+r2,v1+v2))

LineXY(dw2-rr,i,dw2+vv,i,RGB(r1+r2,v1+v2,b1+b2))

rr1+a1
rr2+a2
vv1+a3
vv2+a4
bb1+a5
bb2+a6
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  2



or1+cr1
rr1=or1
or2+cr2
rr2=or2
ov1+cv1
vv1=ov1
ov2+cv2
vv2=ob2
ob1+cb1
bb1=ob1
ob2+cb2
bb2=ob2
;;;;;;;;;;;
StopDrawing()
;*****
FlipBuffers()

If MouseButton(#PB_MouseButton_Left)<>0
Goto autre
EndIf

ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)
End

Ha ouai, c'est beau, ca marche...