;Autor: sibru

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

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,480,230,"Spalte",200,0)
  AddGadgetItem(1,-1,"Item",0,0)
  
  Select LI_AusrichtGet(1,0)
    Case 0
      MessageRequester("","Ausrichtung: Linksbündig",0)
    Case 1
      MessageRequester("","Ausrichtung: Rechtsbündig",0)
    Case 2
      MessageRequester("","Ausrichtung: Zentriert",0)
    Case -1
      MessageRequester("","Spalte nicht gefunden.",0)
  EndSelect
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf