PC World Komputer 1996 February

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

/ PC World Komputer 1996 February / PCWK0296.iso / abcflow / abc / samples / deploy.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-01-25 | 46.1 KB | 602 lines

DeployWiz Deployment Wizard Form15f ABC Events VBX Heading Department Listing UpArrow DownArrow Title SubTitle Depts Phases DeleteButton &Delete EditControl Text1 Order Order TitleLabel Title: SubTitleLabel Sub Title: HintText GTo multi-select, click on items in the list while holding the CTRL key. Frame2 Orientation LandPic wwwwwwwwwwwwwww PortPic wwwwwwwwwwwwx Landscape &Landscape MS Sans Serif Portrait P&ortrait MS Sans Serif Frame1 Preview Window Preview1 wwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwww wwwww wwwww Preview2 wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwww wwwww wwwww Preview3 wwwwww wwwwww wwwwww wwwwww wwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww &Quit NextButton &Next >> Previous << &Previous Picture2_Click Command2_Click CursorOver Command1_Click Command3_Click Frame3D1_DragDrop Source Control List1_Click Picture1_Click Text1_Change$ Text1_Click Text1_DblClickO Text1_DragOver( Stateu Text1_MouseUp+ Button Shift Text1_DragDrop @ Form_Load List1 File1 ListCount@ Selected. Text1# Text` FileListBox FileName Command5_Click Setfile FName TestString Departments4 AutoRedraw Printeru FontCount Combo1 Fontsw ListIndex Count TotalCount Combo1_Click Label1 Caption Salary DelNam existw ABCSAMPL Char. TextDataA TextData2V Form_Click{ StripTextData ABCAutoDept Command1 Start; Orientation Picture Portrait LANDSCAP` BitDirOne( BitDirTwo BITMAPS OUTLINEW Lndscp Prtrt% LndscpAH PrtrtA: LndscpB PrtrtB Option3D1_Click Valuem Option3d1 Enable@ Enabled Option3D2_Click Option3d2 ABC_DPT1 ABCA_DPT Command3D2_Click/ SltItem SelItm TotlItms% Command3D1_Click SelItmIdxV SelItmIdxSub& Phonec Support~ ABCAutoAct ClearLabell CloseFileU Depts Depts_Click Label2_Click Orientation_Click{ EditControl DownArrow_Click UpArrow_Click SelItemIdx Index@ TotalItems ItemContent @ Add_Click ClearSelectionP ListBox Object" TheList SelectionCountq ThenSelectionCount LocalCount= Previous3 PhasesI Visible[ Heading Next_ClickV CurrentSteph @ SetStepUI ThisStep: NextButton NextButton_Click Previous_Click Preview1 Preview2d GetPrivateProfileString lpszSection lpszEntry lpszDefaultD lpszReturnBufferk cbReturnBuffer[ lpszFilename5 ByVallpszEntry ByValcbReturnBufferI Item4 HGetPrivateProfileStringH @ ReadData* DeptRead PhaseRead @ WriteData INIFileName @ SelectAll TitleRead Consts1 PHASE Title SubTitle ReadMode DeptHeading PhaseHeading TitleHeading SubTitleHeading DeaptHeading ReadTitle ReadDept$ ReadPhase ReadSubTitle ThisList ActiveList Delete_Click Phases_Click SubTitleLabel_Click Truee Order UpArrow^ DownArrows DeleteButtone @ ShowLists< ShowState Click DeleteButton_Click DeleteButton_KeyPressG KeyAscii: HintTextg Preview3N ABC1_DoubleClickSUBCLASS TotalStepsS Panel3D1_DragDrop CurrentColor CurrentDepte CurrentPhase Chart Tracker PhaseTop GLeft GHeight GWidthi STITLE{ DEPTWIDTH PHASEHEIGHT DrawNewProcess Objects PercentGauge CurrentShapePalette& CurrentShape UsedHeightX UsedWidth DrawDirection MasterItems HideAll PageLayout PageWidth Width PageHeight Height FieldTemplatesG Hidden NoRepaintP DrawPositionY DrawPositionX DrawTextObject MainTitleY PercentGaugeValue: CenterXa TextAlignmentP FieldValues& Repaintc Bottom NumPhasesB SelCountr NumDepts NoPhases DrawShape Left2 StylePhase Right PhaseWidth PercentGaugeCancelled NoDepartments DeptHeight( ShapeB NumberShowN @ StyleDept NextNumberv HidePercentGauge NewGuidelines Preferencesd SmartShapeSpacing GetType@ ObjectIn TrackFieldK IsEmpty TrackCode BlankPos HeightDept' ThisChartq ThisShape DeptTop DeptBottom FieldValue^ YSave DeptNum ItemFromFieldValue MatchHeightPhase3 Dept0& Dept1> TrackFieldValue} NewPhaseHeight Counter ItemFromAll Department ClearGuidelines AddHorizontalGuideline6 CenterY GuidelinesOn FillColor BasicColor ColorA WHITE StretchTypeo DK_Gray~ WidthPhase PhaseLeft9 PhaseRight XSaveN PhaseNum MTITLE thenLocalCount Form_LostFocus DrawNewH DrawNewDeploy ActiveChart DeployWiz$ WindowState andScape Landscape Portrait_Click LandScape_Click Form_GotFocus LandPic PortPicA ABC1_ObjectMovedNOTIFY ABC1[ ABC1_ObjectMoveSUBCLASS ABC1_ObjectSizedNOTIFY@ ABC1_ObjectSizeSUBCLASS} DeployEditMode ABC1_ChartActivateNOTIFY Form_QueryUnload Cancel UnloadModez Form_Deactivate CHARTTYPE Form_Unload MatchWidthDepty ABC1_ObjectFontChangeNOTIFYc NewDeptWidth DeptLeft Widht FieldTempl OrientHeading LANDCONST PORTCONST4 thenPrintV ReadOrient endifSubTitle# OutString SELCONST NOTSELCONSTC TabStart TabLoc DontSelectThisItem; SelectThisItem Unload Quit_Clicki SubTitle_Change RegisterEvent APPNAME Form_MouseDown TouchAlignment Preview1_Click VScroll1_Change Override NextShapeHeight NextShapeWidthR GLastHeight GLastWidth DrawTextBlockv TypeUsesEXE FillPattern BorderColor ChartTypeShutdown TypeRequiresEXEZ MessageBox MsgBox bFailed4 ThenbFailed bFaliedd ABC1_AppQuitNOTIFYs ABCShutDown boolean ErrorHandler Form_ResizeK ErrorHandler2 ifLocalCount SetDefaults Clear_ SeselectAll DeselectAll ShadowColor ShadowStyle Line_ CurrentLineRouting Deployment Wizard Main Title Sub Title Department Phase DEPLOY Landscape Portrait (not selected) [Departments] [Phases] [Title] [SubTitle] [Orientation] ABC1_AppQuitNOTIFY ABC1_ChartActivateNOTIFY ABC1_ObjectMovedNOTIFY ABC1_ObjectMoveSUBCLASS ABC1_ObjectSizedNOTIFY These two lines mack sure that the stretching of the heading boxes does not effect thec size of the next drawn shapet These two lines mack sure that the stretching of the heading boxes does not effect thec size of the next drawn shapet Else If GetType(ABC1.Object) = TITLE Then Call SizeTitle(ABC1.Chart, ABC1.Object) Else If GetType(ABC1.Object) = STITLE Then Call SizeSubTitle(ABC1.Chart, ABC1.Object)e ABC1_ObjectSizeSUBCLASS Add_Click ClearSelection DeleteButton_Click Removes the selected item's Select the first item in the list Removes the selected item'n Select the first item in the list DeployEditMode Deployment Wizard Depts_Click DownArrow_Click Gives the #Index of the selected item.h DrawNewDeploy Generating new chart... Make a new chartn Set the right shape palette Standard Process Set the Chart's internal type Set up some variables Draw new shapes stacked Hide all master items Use right angle lines Get useable page area Add new tracker field to chart Tracker Turn off repaint for smoother display We will explicitly call Obj.Repaint when we're done setting all characteristics Place the Title texti Center the title Tracker Place the Sub Title Center the title Tracker Bump headings over 1.5" if there are Deptss draw the empty corner box Place the rest of the phasesh Place the rest of the departments Turn shape numbering on and set all newly drawn shapes to gray w/dark gray shadowss Create a dummy shape to hold the defaults set the defaults for newly draw shapes Delete the dummy shape Minimize... Form_Deactivate Form_Load The .INI file is located in the same directory as the EXE \DEPLOY.INI In case the .INI has no setting Call SelectAll(Phases) Call SelectAll(Depts)) ABCFlow.application Set up all Event Advises ChartActivateNOTIFY AppQuitNOTIFY ObjectMovedNOTIFY ObjectMoveSUBCLASS ObjectSizedNOTIFY ObjectSizeSUBCLASS Unregister all with ABC PROCESS ABC Deployment Wizard Form_QueryUnload Form_Unload GetType Tracker HeightDept What department was sized? Tracker Find the phases to the left and right Tracker LandScape_Click MatchHeightPhase Figure out Phase row topt Tracker Tracker Recalculating chart... Match all the other phase heights MatchWidthDept Recalculating chart... Match all the other phase heights Now fix Phase 0 TRACKER NewGuidelines Tracker NextButton_Click You must have at least one Phase or Department selected to draw a new deployment chart. Phases_Click Portrait_Click Previous_Click Quit_Click ReadData Determine file number.e Open file.t Get one character.e If not linefeed.n If linefeed,l Find where "[CR]" begins. Replace "[CR]" with "". see if a TAB appearsS Loop if not end of file.f Close file. SelectAll SelectionCount SetStepUI &Next >> Departments Deployment Wizard - [Step - Choose Departments] &Next >> Phases Deployment Wizard - [Step - Choose Phases] &Draw >> Titles Deployment Wizard - [Step - Choose Titles] ShowLists StyleDept Make object with anchored sides Tracker StylePhase Make object with anchored sides Tracker UpArrow_Click Gives the #Index of the selected item.l WidthPhase What phase was sized? Tracker Find the phases to the left and right Tracker WriteData Remove Prevoius [.INI] file.e Determine file number.n Start For loop. Write strings to file.W End FOR loop. Start For loop. Write strings to file. End FOR loop. Close file.