Hi,

I'm using Paradox ver7 patch4 on Windows XPpro ServPak2.

I like to have my display setup dependant on whether I'm in design or
runTime mode.

In design mode I can't get the form's scroll bars to display but the
application's scroll bars do (see code below).

Thanx for your time.... Frank


The following is located in the form's keyPhysical.event:
;===============================
method keyPhysical(var eventInfo KeyEvent)

var
stKey string
foSelf form
arOpenForms Array[] AnyType
siOpenFormsCount SmallInt
endVar

enumFormNames(arOpenForms)
foSelf.attach(":fcc:iApp.fsl")

if eventInfo.isPreFilter() then
;// This code executes for each object on the form

;|| Check for what key the user pressed
;
stKey = eventInfo.vChar()

;|| <F8> sets up form to display
if stKey = "VK_F8" then
showToolbar()
for siOpenFormsCount from 1 to arOpenForms.size()
foSelf.attach(arOpenForms[siOpenFormsCount])
if foSelf.getFileName() = "" then ;
msgStop("Warning", "At least one form is a new form.")
else ;
if foSelf.isDesign() then
;|| Design mode display setup
menuAction(MenuPropertiesZoomBestFit)
self.horizontalScrollbar = true
self.verticalScrollbar = true
foSelf.horizontalScrollbar = true
foSelf.verticalScrollbar = true
menuAction(menuControlRestore)
Else
;|| RunTime mode display setup
menuAction(MenuPropertiesZoom100 )
menuAction(menuControlRestore)
endIf
endIf
endFor
endIf

else
;// This code executes only for the form

endIf

endMethod
;===============================

Frank

<<
if foSelf.isDesign() then
The ObjectPAL code does not execute for a form in Design mode.

The best way to do what you want is to set the scrollbar properties to false
in the form's init or open event, and to set the to true in the form's
action event when eventinfo.id()=DataDesign.

Bertil

Hi Bertil,

Remember me? Long time no talk to.

eventinfo.id()=DataDesign.
<<
That did the trick!

THANX for your time... Frank



"Bertil Isberg" <ctech (AT) corel (DOT) ca> wrote