This has to be easy to do.....But

[rmssoftware]

How do you make the program stop showing the database name and name of the table or form display at the top of the screen. I like just having the directory displayed or the program name but not everything across the top windows bar.

[Stan Mathews]

Re: This has to be easy to do.....But

How do you make the program stop showing the database name and name of the table or form display at the top of the screen. I like just having the directory displayed or the program name but not everything across the top windows bar.

If you have a suggestion for the wishlist, why not post it there? If you have a question, title the thread with the question, no?

This has to be easy to do.....But

Doesn't help anyone determine if they want to read/answer your post.

The more details you provide, the better help you will get.

How do you make the program

What program?

display at the top of the screen.

What screen?

I like

Sounds like a wishlist post.

Possibly your post might have read....

Is there any way to suppress the Alpha basis upon which the current form is based? Is there any way to control the heading of a form?

Answer might have been...

Take a look at the invoice form in AlphaSports. Take a look at the Customer Information form in AlphaSports. Notice the differences. Which approach do you want?

[Steve Workings]

Re: This has to be easy to do.....But

The title bar at the top of the A5 window can be controlled by a5.window_title.

Often placed in the autoexec script:

a5.window_title = "What you want here"

In your case, you may just want to specify blank:

a5.window_title = ""

For forms, you need to edit the form and go to the Window properties, and set the caption.

[Peter.Greulich]

Re: This has to be easy to do.....But

You can also do this for a form (put it in the OnInit event):

f=this.this
f.window_title = "xyz"

[Peter.Greulich]

Re: This has to be easy to do.....But

Gee, Stan. You're being a little hard on the guy, aren't you? :)

[rmssoftware]

Re: This has to be easy to do.....But

Yep, he is, Thanks to both Steve and Peter for giving some great help on this. I'm beaming with joy at the new application I'm just finishing and help like this is what everyone is really looking for. You guys are the best!

[DaveM]

Re: This has to be easy to do.....But

a5.window_title = "What you want here"

Did not work used in autexec, runtime autoexec, Oninit on form or OnActivate. When used in the autoexec, it temporarily shows the selected text, but slips back to Alpha Five Main Window. When I use the startup commands after the alpha5.exe, all is fine.

I suggest that you look in your help file under startup commands for the really god stuff.

I have all my starts in my desktop start link to cause alpha to show the right text, icons and availability of the splash screen for my app.

OH! You can change the splash screen(Called splash.bmp) too! This can be a great enhancement for a sale application. You still get the progress bar!

Dave

[rmssoftware]

Re: This has to be easy to do.....But

Thank you dave! Another great suggestion. What I finally did find out on the initial startup was what I had used for years in V5 which is -title="what you want" at the end of the start up line for properties.

[rmssoftware]

Re: This has to be easy to do.....But

Dave, where is the splash.bmp file located?

OH! You can change the splash screen(Called splash.bmp) too! This can be a great enhancement for a sale application. You still get the progress bar!

Dave[/QUOTE]

[DaveM]

Re: This has to be easy to do.....But

Mine is in my app folder, but I install my runtime in the same folder. I also use an exe instead of a shortcut to start the app.

[martinwcole]

Re: This has to be easy to do.....But

I figured out how to make a5.window_title work
you have to put the command in the onactivate event of ALL forms

e.g.: a5.window_title=alltrim(var->facility)

in my scenario, we are using T/S where all users log on to a common login screen (which is a separate adb) and based on their choice, they go to one of several adbs.

because we are still in early/middle development mode, it is anticipated there will be occasional freezes/crashes, and because we will have more than one instance of Alpha running, I need a way to distinguish in the taskmanager which user I want to kill.

each adb is a different facility(hospital, clinic,etc), and when I determine the facility at startup I can set the global variable facility to its name.
So when I put this line in the onactivate event of every form, which retains the traditional look) I always know who they are and where they are

a5.window_title=alltrim(var->facility) + " [" + this.window_title + "]"

although I haven't done so yet, I will also add the logger's initials to the line so if 2 or more users are remotely logged on to the same facility, I will also know which user it is.

Now if they call and say they are frozen, etc., we can quickly determine which process to kill from the task manager.

just added the user - see picture

[DaveM]

Re: This has to be easy to do.....But

I believe you can suggest the title for a form in properties.

Here is something else I wrote in VB6. it would need to be changed per ones needs and compiled to an exe.
=====================================================
I made my own .exe with the switches on the back that runs my app in any folder on any drive and shows my own name at the top instead of alpha and uses my own icon. I did it in vb6. It starts sales.adb.

Anyone wanting the simple code is welcome to it.

Sub Form_Load ()
Dim upspath
upspath = CurDir + "\alpha5.exe"
upspath = upspath + " " + CurDir + "\sales.adb -TITLE=UpsLog by K&D Consulting"
upspath = upspath + " -ICON=" + CurDir + "\KD.Ico"
c = Shell(upspath, 3)
End
End Sub

*Note: My runtime is installed in the same folder with my app so when a makke an install, it all goes together.


This is also in the code part of this forum.

Dave

[Peter.Greulich]

Re: This has to be easy to do.....But

I believe you can suggest the title for a form in properties.

Sure. But you can't change it dynamically as Martin & others are doing w/o xbasic.

[martinwcole]

Re: This has to be easy to do.....But

here is a script that will modify all forms' onactivate event code automatically

rule1: test this in a COPY of your application

play with the title - mine gets the facility name and logger during logon, so they already exist - and since the logger is the fullname of the logger I am parsing to conserve space - you could make the title anything you want

 
on error goto errors
temps=<<%a%
a5.window_title=alltrim(var->facility)+"-" + word(logger,1,",")+"," + left(alltrim(word(logger,2,",")),1)+" ["+this.window_title+"]"
%a%
statusbar.show()
vForms1 = a5.Form_Enum(2)
vForms=sortsubstr(vForms1,crlf())
vNumber = line_count(vForms)
onk=0
dim vForm_Height as n = 2
dim vForm_Width as n = 2
dim vWindow_Height_mode as c = ""
dim vWindow_Width_mode as c = ""
dim vWindow_allow_maximize as l = .t.
dim vWindow_allow_minimize as l = .t.
dim vWindow_allow_resize as l = .t.
dim vWindow_has_caption as l = .t.
dim vWindow_has_system_menu as l = .t.
for z=1 to w_count(vforms,crlf())
 true1=.t.
 vfrm=word(vforms,z,crlf())
 f=form.load(vfrm, "SCRIPT_DISABLE_EXEC")
 on error goto next5
 f.Command("system_design") 
 on error goto errors
 statusbar.clear()
 statusbar.set_text("Working On: " + vfrm + " " + z + " of " + w_count(vforms,crlf()))
 vForm_Width = f.form_width
 vForm_Height = f.form_height
 vWindow_Height_mode = f.window.height_mode
 vWindow_Width_mode = f.window.width_mode
 vWindow_allow_maximize = f.window.allow_maximize
 vWindow_allow_minimize = f.window.allow_minimize
 vWindow_allow_resize = f.window.allow_resize
 vWindow_has_caption = f.window.has_caption
 vWindow_has_system_menu = f.window.has_system_menu
 changed=.f.
 [B][COLOR=red]f.code.onactivate=temps + crlf() + alltrim(f.code.onactivate) 
[/COLOR][/B] '** Reset form properties that writing to event changes
 f.form_height = vForm_Height
 f.form_width = vForm_Width
 f.window.height_mode = vWindow_Height_mode
 f.window.width_mode = vWindow_Width_mode
 f.window.allow_maximize = vWindow_allow_maximize
 f.window.allow_minimize = vWindow_allow_minimize
 f.window.allow_resize = vWindow_allow_resize
 f.window.has_caption = vWindow_has_caption
 f.window.has_system_menu = vWindow_has_system_menu
 on error goto next5
 if true1=.t.
  f.Command("file_save")
 end if 
 f.close()
 1=1
 next5: 
 1=1
next z 
statusbar.clear()
end 
errors:
true1=.f.
resume next
end

[G Gabriel]

Re: This has to be easy to do.....But

Are we overlooking the obvious?