Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Active-X friendly splitter - New Update
Message
 
À
16/07/2004 05:16:54
Km Kwun
Eastop Consultants Limited
Nt, Hong Kong
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00902828
Message ID:
00925099
Vues:
52
No problemo :)
You know, I use it too!

:-)


>The class now runs perfectly in my programs. I also noticed another necessary improvement in your new code: the line UPPER(oParent.Class)="PAGE" was changed to UPPER(oParent.BassClass)="PAGE".
>
>Thanks again for the fixes!
>
>KM
>
>
>>Corrected.
>>
>>I have hunted this annoying bug from the beginning (first release) and I finaly found it!
>>
>>Its related to the rangemin property.
>>I have added an assing method to change the value to int() and the bug is gone :)
>>
>>Re-Download the zip.
>>This should be the last time <g>
>>
>>Happy splitting :)
>>
>>
>>
>>
>>>Hi Gerald,
>>>
>>>Thanks again for the update. It works correctly inside a container. However, there is a very minor issue. In the following code, the splitter is intentionally made shorter than the container. Dragging the splitter somehow distorts the borders of the containers. Anyway I don't think this is a big problem and is just for your information.
>>>
>>>
>>>Public oform1
>>>
>>>Set Classlib To Split.vcx Additive
>>>
>>>oform1=Newobject("form1")
>>>oform1.Show
>>>
>>>Define Class form1 As Form
>>>	AutoCenter = .T.
>>>	Caption = "Form1"
>>>	Name = "Form1"
>>>	Add Object container1 As Container With ;
>>>		Top = 6, ;
>>>		Left = 7, ;
>>>		Width = 145, ;
>>>		Height = 238, ;
>>>		Name = "Container1"
>>>	Add Object container2 As Container With ;
>>>		Top = 6, ;
>>>		Left = 159, ;
>>>		Width = 209, ;
>>>		Height = 238, ;
>>>		Name = "Container2"
>>>	Add Object splitter1 As splitter With ;
>>>		Top = 40, ;
>>>		Left = 154, ;
>>>		Height = 162, ;
>>>		Width = 4, ;
>>>		oleft = "thisform.container1", ;
>>>		oright = "thisform.container2", ;
>>>		Name = "Splitter1"
>>>Enddefine
>>>
>>>
>>>
>>>KM
>>>
>>>
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...


Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform