PC Pro 2001 September

home *** CD-ROM | disk | FTP | other *** search

/ PC Pro 2001 September / DPPCPRO0901.ISO / Sept / Flow7 / ABC40 / ABC / SAMPLES / ORGCHART.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-01-26 | 14.2 KB | 321 lines

OrgChartDlg Organization Chart DEMO Form15 ABC Events VBX OptionsBtn Options... CancelBtn Cancel OrgChartBrowse CommonDialog *.txt !Choose ASCII Text File for Import *.txt BrowseBtn Browse... OKBtn OrgChartTextFileEdit MS Sans Serif Line6 Line5 Line4 Line3 Line2 Line1 Label1 ASCII Text File: Text1_Change Chart< Object ActiveChart ClearGuidelines NumGuidesT start AddHorizontalGuidelinex Form_Load Text1 Text# Command1_Click> Label1_Click! Command2_Click CMDialog1 Action} OrgChartBrowse OrgChartTextFileEdit OrgChartTextFileEdit_Change BrowseBtn_Click CancelBtn_Click OKBtn_Click Filename$ OrgChartDlg DoCreateOrgChartU success variableK OrgItemh TheChartx ABCChartk Create^ ABCAppl DrawShape TestShape ABCObject EntireFile len_file6 DrawDirection( DrawPositionX DrawPositionY test_charP cur_pos len_strY [Refresh]k are_we_doneb TheCh[ line_break last_rank ShapeStacks index ur_pos! DrawLine6 2[DrawLine(ShapeStack(index-1), ShapeStack(index))] DrawPosition fromShape toShape newlineC DrawSpacingY= FillColor BasicColor ShadowStyle_ Color: DestArrowStyle StemStyleF StemWidth# BorderWidthi Shape+ [newline.Line.Color]E [Line.Color] Line_ FormatOrgString7 OrgString state in_quotes# test_ascCode commaa FormattedStr GetNumLines test_str in_line_feedS total_lines req_objs4 ShapeList ParentList FirstChildList NextSiblingListC cur_obj_count cur_oindexN ShapeRefStack ParentRefList FirstChildRefList| NextSiblingRefList extSiblingRefListt FirstChil CurrentLineType DrawK herer EndFor GetReqSize float fwidth sizeT size_neededz parent RelationMap_ first_child next_sibling Relation8 cur_obj$ OrgGetReqBranchSize relation_mapo size_stack cur_child7 ShapeRefStac RightC box_spacing counter finished? Width level temp_objref posY\ CenterX CenterYM ShapeLi SrcArrowStyle YELLOW BorderColord LabelShown SourceArrowStyle OptionsBtn_Click OrgChartOptionsDlgh OrgChartN Disable Repaint CurrentLineRouting NumberShown DrawLineToOneObject. TestLiney Paint RePain NoRepaint FitToText FitShapeToText size_cx size_cy' Bottom box_spacing_x box_spacing_y size_level size_branchq box_spacing_peers box_spacing_levels HeightC Form_UnloadC Cancel BoxSpacing4 vertical TopToBottomRBtn Value! BottomToTopRBtn reverse RightToLeftRBtnq Esle- inverted Boolean mirrorX\ mirrorY num_levels hapeListL sizes work& according} obj_size_level4 EqualWithinLevels{ IncreaseMgrSize Visible CurrentShapePalette CurrentShape Types PageLayouy Orientation PageLayout MasterItems" Hideall^ PercentGuage PercentGaugeValue DrawnCount HidePercentGauge PercentGauge ShapePaletteVisible PercentGaugeCancelled_ GetClientRectr hwndParent lpPercent m_hwndPercent RxCreateDialog GETINSTANCEt LPSTR MAKEINTRESOURCE> DB_PERCENTGUAGE DlgProc7 Percent TotalFormatIter FormatItere status LoopIter TotalFormat NewGaugeIter@ NewGaugeLoop IntergerW CalcPercent iteger OrghartTextFileEdit Form1 WindowState^ CalcPerentv DoCreateAbort DoCreteAbortW Form_LinkClose BottomToTopRBt Enabled Active MakeActiveO ValidateFilename CaLLValidateFilename OKBtn InitDir Unloadi DataFilename RegisterEvent APPNAME bFailed CHARTTYPE ChartTypeShutdown ABC1_DoubleClickSUBCLASS ABC1_AppQuitNOTIFYX ABC1_AppQuitNOTIFY BrowseBtn_Click OrgChartBrowse.Filename = OrgChartTextFileEdit.Text *.txt CalcPercent CancelBtn_Click Command2_Click DoCreateOrgChart Make a new chartA Set the right shape palette Standard Chart.CurrentShape = "Process" Set the Chart's internal type PROCESS Turn off master items Set up the progess barD ABC.PercentGauge "Organization Chart DEMO", "PASS 1 of 2: Reading & parsing file..." Process update status bar Give all the shapes some attributes here ABC.PercentGauge "Organization Chart DEMO", "PASS 2 of 2: Formatting chart..." There are currently five iterations of formatting We need to go through the list and make sure the sizes work according to the Options Dlge Here we traverse the tree gathering the maximum size box in each level update status bar Now we have to adjust if the manager's size increases. Reinitialize the loop vars Here we traverse the tree gathering the maximum size box in each level update status bar The object has to be at least as big as the biggest on the next leveln Format the chart *here*G start at the top (the "God" object) Dim vertical As Integer Dim inverted As Integer We're just calculating the sizes that these shapes need so far.. update status bar I'll have to admit - this is a little hard to follow - but it's BASIC you know, Visual or notn Can't do too much about the recursion stuff in BASIC This is recursion in disguise Don't be confused-> X and Y are reversed if this is not vertical update status bar since we're skipping an object in this loop Form_Load ABCFlow.application \ORGCHRT1.TXT ABC.RegisterEvent ABC1.VBX, APPNAME, "AppQuitNOTIFY" Form_Unload FormatOrgString comma GetNumLines NewGaugeLoop OKBtn_Click iconize form1 OptionsBtn_Click OrgChartTextFileEdit_Change ValidateFilename