Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Form from PRG No Scrollbars
Message
De
15/09/2001 10:04:53
Cecil L Folks, Jr
Dream Weaver Systems
Bloomington, Illinois, États-Unis
 
 
À
15/09/2001 04:32:13
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Re: Form from PRG No Scrollbars
Divers
Thread ID:
00556879
Message ID:
00556908
Vues:
16
Cetin,

Sorry guess I cut to much out for my sample code but I do go beyond the form size and it does not exceed its height or its width...
for example when form displays i have 20 text boxes at right edge of display only 4 of which display and no scroll bar but pressing enter or tab I can count and find I get to each of the your sample works mine flops...Thought it best not to put all of prg in here it has over 137 labels and textboxes on screen...If you want I could put it in or email it. This is cruicial to project... Thanks again....BTW tried resizing form to 480x640 and still did not get scrollbars...

>Cecil,
>In your sample code all objects seem to be within form area. Scrollbars wouldn't display then.
>
>
>oForm = createobject('myForm')
>oForm.Show
>read events
>
>define class myform as form
> Height = 200
> Width  = 300
> Scrollbars = 3
> add object lbl1 as label with ;
>    left = 0, top= 0
> add object lbl2 as label with ;
>    left = 0, top= 300
> add object lbl3 as label with ;
>    left = 400, top= 0
>procedure queryunload
>clear events
>endproc
>enddefine
>
>This displays both scrollbars. If you resize form to show label2 and 3 then scrollbars would disappear (no need).
>Also by design if any object have left,top higher than screen resolution * 2 than scrollbars doesn't show (ie: 800*600 and object with left 1650 or top 1250).
>Cetin
>
>>Hi All,
>>
>>I have a prg that builds a new prg based on info in dbf some of these are very big...1056x816 etc... Yes color conversion still needs work but THE
>>MOST IMPORTANT THING I NEED IS SCROLLBARS DUE TO SIZE OF THESE FORMS...TRYING TO DUPLICATE OLD VB ROUTINE WITH NO
>>SOURCE CODE AVAILABLE AND ORIGINAL PROGRAMMER NOT KNOWN BY DEVELOPERS...
>>So one of the things it does is set Scrollbars=3 yet when form displays I have no Scrollbars below is a sample can anyone help. Thanks in advance..
>>Cecil...
>>
>>********************************
>>* Step 3: This [prg] was Generated by frmCreat.prg
>>********************************
>>Set Talk Off
>>Clear
>>LVForm= Createobject("CecilForm")
>>LVForm.Show
>>Read Event
>>
>>Define Class CecilForm AS FORM
>> Top = 0 && NOTE SIZE
>> Left = 0
>> Height = 1056
>> Width = 816
>> Font = "Courier New 10"
>> Caption = "Landscaping Prop (Add$)"
>> Maxbutton = .t.
>> MDIForm = .t.
>> AlwaysOnTop = .t.
>> Scrollbars = 3 && BOTH Scroll Bars? DOES NOT WORK WHY??
>> helpcontextid = 104
>>
>>
>> ADD Object Label23 as MyLabel23
>> ADD Object Label24 as MyLabel24
>> ADD Object Text15 as MyText15
>> ADD Object Text22 as MyText22
>>
>>....SOME DISPLAY AT TOP=654 ETC...
>>....
>>
>> Procedure Destroy
>> Thisform.release
>> Clear Events
>> EndProc
>>EndDefine
>>
>>
>> Define Class MyLabel23 as Label
>> Top = 149
>> Left = 454
>> Height= 19
>> Width = 179
>> FontName = "MS Sans Serif"
>> FontSize = 8
>> BackColor = RGB(255,255,255)
>> ForeColor = RGB(0,0,128)
>> BackStyle = 0
>> caption = "CONTRACTOR LICENSE NO."
>> TabIndex = 0
>> Name = "Label23"
>> EndDefine
>>
>> Define Class MyLabel24 as Label
>> Top = 149
>> Left = 635
>> Height= 19
>> Width = 148
>> FontName = "MS Sans Serif"
>> FontSize = 8
>> BackColor = RGB(255,255,255)
>> ForeColor = RGB(0,0,128)
>> BackStyle = 0
>> caption = "JOB PHONE NO."
>> TabIndex = 0
>> Name = "Label24"
>> EndDefine
>>
>> Define Class MyText15 as Textbox
>> Top = 161
>> Left = 635
>> Height= 19
>> Width = 148
>> FontName = "MS Sans Serif"
>> FontSize = 8
>> BackColor = RGB(192,192,192)
>> ForeColor = -2147483640
>> BackStyle = 0
>> caption = ""
>> TabIndex = 13
>> Name = "Text15"
>> ControlSource = "Job Phone"
>> EndDefine
>>
>> Define Class MyText22 as Textbox
>> Top = 161
>> Left = 454
>> Height= 19
>> Width = 148
>> FontName = "MS Sans Serif"
>> FontSize = 8
>> BackColor = RGB(192,192,192)
>> ForeColor = -2147483640
>> BackStyle = 0
>> caption = ""
>> TabIndex = 12
>> Name = "Text22"
>> ControlSource = "Contractor License No."
>> EndDefine
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform