PureBoard

Code: Alles auswählen

;Modul      AusrichtGet Version 1.01 vom 17.11.2004 
#PB_Vers  = "4.20"            
;
;Funktion:  liefert Ausrichtung einer ListIcon-Spalte
;
;Aufruf:    Ausrichtung = LI_AusrichtGet(GadNr, Spalte)
;           GadNr:  #GadgetNr eines ListIcon´s
;           Spalte: 0-basierende SpaltenNr (1. Spalte = Nr 0) des
;                   ListIcon´s, dessen Ausrichtung ermittelt werden
;                   soll
;
;           Diese Funktion liefert:
;           -1  bei Fehler (Gadget nicht vorhanden, kein ListIcon,
;               ungültige SpaltenNr...)
;            0  linksbündig (=#LVCFMT_LEFT)
;            1  rechtsbündig (=#LVCFMT_RIGHT)
;            2  mittig (=#LVCFMT_CENTER)
;

;#jaPBeExt exit
Procedure LI_AusrichtGet(GadNr, Spalte)
  Protected Ausricht.LV_COLUMN
  Ausricht\mask = #LVCF_FMT
  If SendMessage_(GadgetID(GadNr), #LVM_GETCOLUMN, Spalte, @Ausricht) = 0
    Ausricht\fmt = #LVS_NOCOLUMNHEADER - 1 ;Error
  EndIf
  ProcedureReturn Ausricht\fmt - #LVS_NOCOLUMNHEADER ;?
EndProcedure

Code: Alles auswählen

EnableExplicit

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  StringGadget(1,10,10,200,20,"Testtext",#ES_RIGHT)
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Code: Alles auswählen

EnableExplicit

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  StringGadget(1,10,10,200,20,"Testtext",#ES_RIGHT)
 
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Code: Alles auswählen

;Modul      Ausricht Version 1.03 vom 29.01.2009
;
;Funktion:  setzt Ausrichtung einer Spalten in einem ListIcon
;
;Aufruf:    LI_Ausricht(GadNr, Spalte, Ausricht$)
;           GadNr    = #Gadget-Nr des ListIcon´s
;           Spalte   = 0-basierende Spalten-Nr
;           Ausricht$= Art der Ausrichtung:
;                      "<" = linksbündig (vorgabe)
;                      "X" = mittig
;                      "x" = mittig
;                      ">" = rechtsbündig
;                      Alle anderen Zeichen in Ausricht$ werden ignoriert !!!
;                      Ist keines der oben angegebenen Zeichen enthalten, so
;                      wird "<" benutzt
;

;#jaPBeExt exit
Procedure LI_Ausricht(GadNr, Spalte, Ausricht$)
  Protected Ausricht.LV_COLUMN
  Ausricht\mask = #LVCF_FMT
  If FindString(Ausricht$,">",1) : Ausricht\fmt = #LVCFMT_RIGHT 
  ElseIf FindString(Ausricht$,"<",1) : Ausricht\fmt = #LVCFMT_LEFT 
  ElseIf FindString(UCase(Ausricht$),"X",1) : Ausricht\fmt = #LVCFMT_CENTER
  Else : Ausricht\fmt = #LVCFMT_LEFT 
  EndIf
  SendMessage_(GadgetID(GadNr), #LVM_SETCOLUMN, Spalte, @Ausricht)
EndProcedure