* Re : Troubles with MessageBeep | Beep...
@ 1999-07-15 0:00 SEV, AV Guest 2
1999-07-15 0:00 ` Dale Stanbrough
0 siblings, 1 reply; 2+ messages in thread
From: SEV, AV Guest 2 @ 1999-07-15 0:00 UTC (permalink / raw)
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.
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Troubles with MessageBeep | Beep...
1999-07-15 0:00 Re : Troubles with MessageBeep | Beep SEV, AV Guest 2
@ 1999-07-15 0:00 ` Dale Stanbrough
0 siblings, 0 replies; 2+ messages in thread
From: Dale Stanbrough @ 1999-07-15 0:00 UTC (permalink / raw)
SEV, AV Guest 2" <avguest2@barco.com> wrote:
" procedure Button1_Click is
b : Win32.bool;
begin
b:=Beep(5000,5000);
end Button1_Click;"
Why does it return a boolean?
On a related note, when I am calling a lot of Unix functions, and
don't want to check the return value, I sometimes do the following...
declare
Result : Natural;
begin
Result := F1 (...);
Result := F2 (...);
exception
when constraint_error => <function failed>
end;
...so would
subtype Ok is Boolean range true..true;
Ok := Beep (...);
compile without the constraint check being optimised away (
would that be a legal optimisation)?
Dale
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1999-07-15 0:00 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1999-07-15 0:00 Re : Troubles with MessageBeep | Beep SEV, AV Guest 2
1999-07-15 0:00 ` Dale Stanbrough
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox