Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Ideas for placing shapes around a circle
Message
 
To
18/05/2005 07:16:47
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01015215
Message ID:
01015266
Views:
16
OK I see what you mean.
You can use 4 more pictures :o))) 2 for seats from the left of scene and 2 for seats for the right

This is VEEEERY bad code but it is example how you can organize chart. Also I'll try to search in google for some ActiveX that could helps to you and if I succeed I'll inform you.
PUBLIC obaseform1

obaseform1=NEWOBJECT("BaseForm1")
obaseform1.Show
RETURN


*
DEFINE CLASS baseform1 AS Form


    Top = 0
    Left = 0
    Height = 640
    Width = 800
    DoCreate = .T.
    Name = "Baseform1"


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 118, ;
        Left = 141, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command1"


    ADD OBJECT command2 AS commandbutton WITH ;
        Top = 139, ;
        Left = 133, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 2, ;
        Name = "Command2"


    ADD OBJECT command3 AS commandbutton WITH ;
        Top = 159, ;
        Left = 146, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 3, ;
        Name = "Command3"


    ADD OBJECT command4 AS commandbutton WITH ;
        Top = 179, ;
        Left = 155, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 4, ;
        Name = "Command4"


    ADD OBJECT command5 AS commandbutton WITH ;
        Top = 199, ;
        Left = 166, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 5, ;
        Name = "Command5"


    ADD OBJECT command6 AS commandbutton WITH ;
        Top = 118, ;
        Left = 162, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command6"


    ADD OBJECT command7 AS commandbutton WITH ;
        Top = 139, ;
        Left = 154, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 7, ;
        Name = "Command7"


    ADD OBJECT command8 AS commandbutton WITH ;
        Top = 159, ;
        Left = 166, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 8, ;
        Name = "Command8"


    ADD OBJECT command9 AS commandbutton WITH ;
        Top = 179, ;
        Left = 175, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 9, ;
        Name = "Command9"


    ADD OBJECT command10 AS commandbutton WITH ;
        Top = 199, ;
        Left = 186, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 10, ;
        Name = "Command10"


    ADD OBJECT command11 AS commandbutton WITH ;
        Top = 118, ;
        Left = 183, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command11"


    ADD OBJECT command12 AS commandbutton WITH ;
        Top = 139, ;
        Left = 175, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 7, ;
        Name = "Command12"


    ADD OBJECT command13 AS commandbutton WITH ;
        Top = 159, ;
        Left = 187, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 8, ;
        Name = "Command13"


    ADD OBJECT command14 AS commandbutton WITH ;
        Top = 179, ;
        Left = 196, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 9, ;
        Name = "Command14"


    ADD OBJECT command15 AS commandbutton WITH ;
        Top = 199, ;
        Left = 207, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 10, ;
        Name = "Command15"


    ADD OBJECT command16 AS commandbutton WITH ;
        Top = 118, ;
        Left = 204, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command16"


    ADD OBJECT command17 AS commandbutton WITH ;
        Top = 118, ;
        Left = 225, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command17"


    ADD OBJECT command18 AS commandbutton WITH ;
        Top = 118, ;
        Left = 246, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command18"


    ADD OBJECT command19 AS commandbutton WITH ;
        Top = 118, ;
        Left = 267, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command19"


    ADD OBJECT command20 AS commandbutton WITH ;
        Top = 118, ;
        Left = 288, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command20"


    ADD OBJECT command21 AS commandbutton WITH ;
        Top = 118, ;
        Left = 309, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command21"


    ADD OBJECT command22 AS commandbutton WITH ;
        Top = 139, ;
        Left = 282, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command22"


    ADD OBJECT command23 AS commandbutton WITH ;
        Top = 139, ;
        Left = 303, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command23"


    ADD OBJECT command24 AS commandbutton WITH ;
        Top = 139, ;
        Left = 324, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command24"


    ADD OBJECT command25 AS commandbutton WITH ;
        Top = 159, ;
        Left = 269, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command25"


    ADD OBJECT command26 AS commandbutton WITH ;
        Top = 159, ;
        Left = 290, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command26"


    ADD OBJECT command27 AS commandbutton WITH ;
        Top = 159, ;
        Left = 311, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command27"


    ADD OBJECT command28 AS commandbutton WITH ;
        Top = 179, ;
        Left = 258, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command28"


    ADD OBJECT command29 AS commandbutton WITH ;
        Top = 179, ;
        Left = 279, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command29"


    ADD OBJECT command30 AS commandbutton WITH ;
        Top = 179, ;
        Left = 300, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command30"


    ADD OBJECT command31 AS commandbutton WITH ;
        Top = 199, ;
        Left = 249, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command31"


    ADD OBJECT command32 AS commandbutton WITH ;
        Top = 199, ;
        Left = 270, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command32"


    ADD OBJECT command33 AS commandbutton WITH ;
        Top = 199, ;
        Left = 291, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command33"


    ADD OBJECT command34 AS commandbutton WITH ;
        Top = 199, ;
        Left = 228, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command34"


    ADD OBJECT command35 AS commandbutton WITH ;
        Top = 180, ;
        Left = 216, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 9, ;
        Name = "Command35"


    ADD OBJECT command36 AS commandbutton WITH ;
        Top = 180, ;
        Left = 237, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 9, ;
        Name = "Command36"


    ADD OBJECT command37 AS commandbutton WITH ;
        Top = 159, ;
        Left = 207, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command37"


    ADD OBJECT command38 AS commandbutton WITH ;
        Top = 159, ;
        Left = 228, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command38"


    ADD OBJECT command39 AS commandbutton WITH ;
        Top = 159, ;
        Left = 249, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command39"


    ADD OBJECT command40 AS commandbutton WITH ;
        Top = 139, ;
        Left = 195, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command40"


    ADD OBJECT command41 AS commandbutton WITH ;
        Top = 139, ;
        Left = 216, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command41"


    ADD OBJECT command42 AS commandbutton WITH ;
        Top = 139, ;
        Left = 237, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command42"


    ADD OBJECT command43 AS commandbutton WITH ;
        Top = 139, ;
        Left = 260, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 6, ;
        Name = "Command43"


    ADD OBJECT command44 AS commandbutton WITH ;
        Top = 118, ;
        Left = 120, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command44"


    ADD OBJECT command45 AS commandbutton WITH ;
        Top = 118, ;
        Left = 329, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command45"


    ADD OBJECT command46 AS commandbutton WITH ;
        Top = 125, ;
        Left = 387, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command46"


    ADD OBJECT command47 AS commandbutton WITH ;
        Top = 133, ;
        Left = 407, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command47"


    ADD OBJECT command48 AS commandbutton WITH ;
        Top = 145, ;
        Left = 427, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command48"


    ADD OBJECT command49 AS commandbutton WITH ;
        Top = 158, ;
        Left = 448, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command49"


    ADD OBJECT command50 AS commandbutton WITH ;
        Top = 169, ;
        Left = 468, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command50"


    ADD OBJECT command51 AS commandbutton WITH ;
        Top = 189, ;
        Left = 472, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command51"


    ADD OBJECT command52 AS commandbutton WITH ;
        Top = 146, ;
        Left = 387, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command52"


    ADD OBJECT command53 AS commandbutton WITH ;
        Top = 154, ;
        Left = 408, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command53"


    ADD OBJECT command54 AS commandbutton WITH ;
        Top = 166, ;
        Left = 428, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command54"


    ADD OBJECT command55 AS commandbutton WITH ;
        Top = 178, ;
        Left = 448, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command55"


    ADD OBJECT command56 AS commandbutton WITH ;
        Top = 167, ;
        Left = 384, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command56"


    ADD OBJECT command57 AS commandbutton WITH ;
        Top = 175, ;
        Left = 405, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command57"


    ADD OBJECT command58 AS commandbutton WITH ;
        Top = 187, ;
        Left = 427, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command58"


    ADD OBJECT command59 AS commandbutton WITH ;
        Top = 200, ;
        Left = 449, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command59"


    ADD OBJECT command60 AS commandbutton WITH ;
        Top = 208, ;
        Left = 471, ;
        Height = 22, ;
        Width = 22, ;
        Caption = "Command1", ;
        ZOrderSet = 1, ;
        Name = "Command60"


    ADD OBJECT shape1 AS shape WITH ;
        Top = 246, ;
        Left = 105, ;
        Height = 236, ;
        Width = 423, ;
        Curvature = 99, ;
        Name = "Shape1"


    ADD OBJECT label1 AS label WITH ;
        FontBold = .T., ;
        Alignment = 2, ;
        Caption = "SCENE", ;
        Height = 17, ;
        Left = 216, ;
        Top = 347, ;
        Width = 272, ;
        Name = "Label1"


ENDDEFINE
*
*-- EndDefine: baseform1
**************************************************
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform