TSTDLG0 TPF0TStDlgStDlgLeftTop ActiveControl CreateBtn BorderStylebsDialogCaption!Priority Queue (StPQueue) Example ClientHeightO ClientWidthx Font.Color clWindowText Font.Height Font.Name MS Sans Serif Font.Style PositionpoScreenCenterShowHint OnClose FormCloseOnCreate FormCreate PixelsPerInch` TextHeight TLabel ActionLabelLeftTopXWidthkHeight CaptionMost recent action Font.Color clWindowText Font.Height Font.Name MS Sans Serif Font.Style fsBold ParentFontTLabel QueueLabelLeft Top8WidthPHeight Caption Jobs in queue Font.Color clWindowText Font.Height Font.Name MS Sans Serif Font.Style fsBold ParentFontTLabelJobLabelLeftTopWidth.Height Caption Initial jobsTButton CreateBtnLeft Top WidthQHeight!Hint:Create new priority queue with specified initial # of jobsCaptionCreateTabOrderOnClickCreateBtnClickTButtonClearBtnLeftTop WidthQHeight!HintClear the queueCaptionClearTabOrderOnClick ClearBtnClickTButtonLoadBtnLeft Top WidthQHeight!Hint!Load previously saved stream fileCaptionLoadTabOrder OnClick LoadBtnClickTButtonSaveBtnLeftTop WidthQHeight!Hint!Save current queue to stream fileCaptionSaveTabOrderOnClick SaveBtnClickTButton InsertBtnLeftTopWidthQHeight!HintAdd another job to the queueCaptionInsertTabOrderOnClickInsertBtnClickTButton DeleteMinBtnLeftTopWidthQHeight!Hint3Remove the job with minimum priority from the queueCaption DeleteMinTabOrderOnClickDeleteMinBtnClickTButton DeleteMaxBtnLeftTopWidthQHeight!Hint3Remove the job with highest priority from the queueCaption DeleteMaxTabOrderOnClickDeleteMaxBtnClickTListBoxLB1Left TopHWidthHeightHintlShows the queued jobs in internal order. The first job is the lowest priority and the second is the highest. ItemHeight TabOrderTEdit ActionEditLeftTophWidthHeightHint#Shows the action you performed lastTabStopReadOnly TabOrderTEditJobEditLeftTopWidthAHeightHint3Specify the number of jobs Create adds to the queueTabOrder TOpenDialogOD1 DefaultExtstmFileName texpq.stmFilter.*.stm (stream files)|*.stm|*.* (all files)|*.*Options ofFileMustExistLeftTTop2 TSaveDialogSD1 DefaultExtstmFileName texpq.stmFilter.*.stm (stream files)|*.stm|*.* (all files)|*.*Options ofOverwritePromptLeftTTop