ShellExecute( Katalog() + "AMHM.chm","OPEN" )
NoOutPut()

int lFokus
int b1,b2,b3,b4
string sTest

int Sub PokazPomoc()

   string sTemat = "\lite_przeznaczenie.htm"

   select case lFokus
      case b1
         sTemat = "\mozliwosci_programu.htm"
      case b2
         sTemat = "\poltyka_sprzeda_y.htm"
      case b3
         sTemat = "\aktywacja.htm"
      case b4
         sTemat = "\u_ytkownicy_programu.htm"

      endselect      

   Execute(KatalogWin()+"hh.exe mk:@MSITStore:" + Katalog() + "AMHM.chm::"+sTemat)
endsub

int Sub OnCommand(int id, int msg)
   if msg == 0x0100 then lFokus = id
endsub

FORM "Pomoc konteksowa w AMBasic", 400,200

   b1 = edit "Temat Możlwiości programu",sTest, 195,5,80,20
   b2 = edit "Temat Polityka sprzedaży",sTest, 195,35,80,20
   b3 = edit "Temat Aktywacja",sTest, 195,65,80,20
   b4 = edit "Temat Użytkownicy programu",sTest, 195,95,80,20

Button "Pomoc", 44, 120, 300, 24, PokazPomoc()

   text "Stań na wybranym polu edycji i wciśnij Pomoc", 5,150,300,20


int rv = ExecForm(OnCommand)

NoOutPut()