From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.7 required=5.0 tests=BAYES_00,INVALID_MSGID,
	PDS_OTHER_BAD_TLD autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6b07184832ed52b,start
X-Google-Attributes: gid103376,public
From: "SEV, AV Guest 2" <avguest2@barco.com>
Subject: Re : Troubles with MessageBeep | Beep...
Date: 1999/07/15
Message-ID: <2461CF0DA7DBD211B07300805F921CBC01D8B985@kuumex03.barco.com>#1/1
X-Deja-AN: 501248373
Sender: "SEV, AV Guest 2" <avguest2@barco.com>
Newsgroups: comp.lang.ada
Date: 1999-07-15T00:00:00+00:00
List-Id: <comp.lang.ada>

As they say... RTFM... 

Beep & MessageBeep are functions....
The following code is really annoying but it works...

------------------------------------------------------------------------
--
with Win32, Win32.WinUser, Win32.WinDef, gbObjects, Win32.WinBase;
use type Win32.Int, Win32.Bool, Win32.WinDef.hWnd;
use gbObjects, Win32.WinBase;

package Window1 is
  Form            : gbMainWindow;
  Button1         : gbButton;
  procedure Initialize_Form;
end Window1;


package body Window1 is
  procedure Button1_Click is 
    b : Win32.bool;  
  begin
    b:=Beep(5000,5000);
  end Button1_Click;

  procedure Initialize_Form is
  begin
    Button1.Click := Button1_Click'Access;
    Text(Button1, "Button1");
    SetFont(Button1, "MS Sans Serif", 8, gbFalse, gbFalse, gbFalse);
    Move(Button1, 44, 39, 137, 47);

    Text(Form, "Window1");
    SetFont(Form, "MS Sans Serif", 8, gbFalse, gbFalse, gbFalse);
    Move(Form, 3, 126, 229, 152);
    Visible(Form, gbTrue);
  end Initialize_Form;
begin
  Initialize_Form;
end Window1;


with gbObjects;
with Window1;

procedure Main is begin
  gbObjects.gbStartApplication;
end Main;
------------------------------------------------------------------------
-----

Sorry if I waste your time with this....

Thnx anyway, Bart.