[Sibyl] AW: [Sibyl] Translation required.

[carsten . hintz]

> -----Urspr?ngliche Nachricht-----
> Von: Yuri Prokushev [mailto:prokushev@;freemail.ru]
> Gesendet am: Donnerstag, 17. Oktober 2002 20:52
> An: [EMAIL PROTECTED]
> Betreff: [Sibyl] Translation required.
>
> Hi.
>
> Can anyone translate to english messages from pmhelp.pas.
>
> Bye
>
>
> -----------
> To unsubscribe yourself from this list, send the following message
> to [EMAIL PROTECTED]
>
>      unsubscribe sibyl
>      end
>
>

don't know if you meant the few german comments in the <pmhelp.pas> from
19.07., but here you are:

[...]

{Help manager helpers}

FUNCTION InfoBox(st:STRING):LONGINT;
BEGIN
  st:=st+#0;
  result:=WinMessageBox (HWND_DESKTOP, HWND_DESKTOP, @st[1],'', 0, MB_OK or
MB_ERROR);
END;

old >>(*wird vor die Hauptprogramm-Message-Schleife (while WinGetMsg...)
gesetzt*)
(* gets set before mainprogram-message-loop (while WinGetMsg...) *)

PROCEDURE InitHelp (hwndClientFrame:HWND);
VAR
   hini:HELPINIT;
   (* If we return because of an error, Help will be disabled *)
BEGIN
     fHelpEnabled := FALSE;
     (* Initialize help init structure *)
     hini.cb := sizeof(HELPINIT);
     hini.ulReturnCode := 0;
     (* If tutorial added, add name here *)
     hini.pszTutorialName := NIL;
     hini.phtHelpTable := PHELPTABLE(HELP_TABLE or (LONGWORD($FFFF) shl
16));
     hini.hmodHelpTableModule := 0;
     hini.hmodAccelActionBarModule := 0;
     hini.idAccelTable := 0;
     hini.idActionBar := 0;
     hini.pszHelpWindowTitle := @HelpWindowTitle;
     hini.fShowPanelId := CMIC_HIDE_PANEL_ID;
     hini.pszHelpLibraryName := @HelpFilename;
     (* Creating help instance *)
     hwndHelpInstance := WinCreateHelpInstance(AppHandle,hini);
     if ((hwndHelpInstance = 0 )OR(hini.ulReturnCode<>0)) THEN
     BEGIN
          InfoBox('Failed to load help manager.');
          exit;
     END;

     (* Associate help instance with main frame *)
     if not WinAssociateHelpInstance(hwndHelpInstance, hwndClientFrame) THEN
     BEGIN
          InfoBox('Failed to load help manager.');
          exit;
     END;

     (* Help manager is successfully initialized so set flag to TRUE *)
     fHelpEnabled := TRUE;
END;

old >> (*wird hinter die Hauptprogramm-Message-Schleife gesetzt*)
(* gets set after mainprogram-message-loop *)

PROCEDURE DestroyHelp;
BEGIN
     IF hwndHelpInstance <> 0 THEN WinDestroyHelpInstance(hwndHelpInstance);
END;

>> (*
>>   einige m"gliche Parameter f?r SendHelpMessage
>>   HM_HELP_INDEX     zeigt Index
>>   HM_HELP_CONTENTS, zeigt Inhalt
>>   HM_DISPLAY_HELP   zeigt Hilfe f?r Hilfefunktion (help for help)
>> *)

 (*
   some possible parameters for SendHelpMessage
   HM_HELP_INDEX     shows index
   HM_HELP_CONTENTS, shows content
   HM_DISPLAY_HELP  shows 'help for help'-function
*)

PROCEDURE SendHelpMessage (HelpMessage:Longint);
BEGIN
     if fHelpEnabled THEN
      if WinSendMsg(hwndHelpInstance, HelpMessage, 0, 0)<>0
        then InfoBox ('Failed to display help panel.');
END;

>> (*
>>   Parameter sind die Panel ID's, definiert ?ber die ID Punktbefehle
>>   im MAKEIPF Quelltext
>> *)
 (*
   parameter are PanelId s defined via ID ["Punktbefehle" / dot command /
point command / ? context ?]
   in the  MAKEIPF source code
 *)

PROCEDURE DisplayHelpPanel (PanelID:Longint);
BEGIN
     if fHelpEnabled then
       if WinSendMsg(hwndHelpInstance, HM_DISPLAY_HELP,
          MPFROMLONG(PanelID OR (LONGWORD(0) SHL 16)),
          MPFROMSHORT(HM_RESOURCEID))<>0
           then InfoBox ('Failed to display help panel.');
END;


BEGIN
END.

-----------
To unsubscribe yourself from this list, send the following message
to [EMAIL PROTECTED]

     unsubscribe sibyl
     end