Разработка эскизного и технического проектов программы

    procedure bb_IdMessageClick(Sender: TObject);

    procedure bb_IdNetworkCalculatorClick(Sender: TObject);

    procedure bb_IdThreadMgrDefaultClick(Sender: TObject);

    procedure bb_IdThreadMgrPoolClick(Sender: TObject);

    procedure bb_IdVCardClick(Sender: TObject);

    procedure bb_IdIMFDecoderClick(Sender: TObject);

    procedure bb_IdQuotedPrintableEncoderClick(Sender: TObject);

    procedure bb_IdQuotedPrintableDecoderClick(Sender: TObject);

    procedure bb_IdBase64EncoderClick(Sender: TObject);

    procedure bb_IdBase64DecoderClick(Sender: TObject);

    procedure bb_IdUUEncoderClick(Sender: TObject);

    procedure bb_IdUUDecoderClick(Sender: TObject);

    procedure bb_IdXXEncoderClick(Sender: TObject);

    procedure bb_IdXXDecoderClick(Sender: TObject);

    procedure bb_IdCoderMD2Click(Sender: TObject);

    procedure bb_IdCoderMD4Click(Sender: TObject);

    procedure bb_IdCoderMD5Click(Sender: TObject);

    procedure bb_IdConnectionInterceptOpenSSLClick(Sender: TObject);

    procedure b_IdServerInterceptOpenSSLClick(Sender: TObject);

    procedure b_findClick(Sender: TObject);

    procedure b_fileClick(Sender: TObject);

    procedure b_printClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  f_main: Tf_main;

implementation

{$R *.DFM}

function finding(p1:string;p2:string):string;

var

        f  : TextFile;

        s  : string;

        sr : string;

begin

        AssignFile(f,p1);

        Reset(f);

        repeat

                ReadLn(f,s);

                sr:=copy(s,length(p2)+3,length(s)-(length(p2)+3));

        until pos(p2+' - ',s)>0;

        CloseFile(f);

        finding:=sr;

end;

procedure Tf_main.bb_FramesClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Frames'));

end;

procedure Tf_main.bb_EditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Edit'));

end;

procedure Tf_main.bb_MainMenuClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','MainMenu'));

end;

procedure Tf_main.bb_PopupMenuClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','PopupMenu'));

end;

procedure Tf_main.bb_LabelClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Label'));

end;

procedure Tf_main.bb_MemoClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Memo'));

end;

procedure Tf_main.bb_ButtonClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Button'));

end;

procedure Tf_main.bb_CheckBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','CheckBox'));

end;

procedure Tf_main.bb_RadioButtonClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','RadioButton'));

end;

procedure Tf_main.bb_ListBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ListBox'));

end;

procedure Tf_main.bb_ComboBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ComboBox'));

end;

procedure Tf_main.bb_ScrollBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ScrollBar'));

end;

procedure Tf_main.bb_GroupBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','GroupBox'));

end;

procedure Tf_main.bb_RadioGroupClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','RadioGroup'));

end;

procedure Tf_main.bb_PanelClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','Panel'));

end;

procedure Tf_main.bb_ActionListClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Standard.txt','ActionList'));

end;

procedure Tf_main.bb_bitbtnClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','BitBtn'));

end;

procedure Tf_main.bb_speedbuttonClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','SpeedButton'));

end;

procedure Tf_main.bb_MaskEditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','MaskEdit'));

end;

procedure Tf_main.bb_StringGridClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','StringGrid'));

end;

procedure Tf_main.bb_DrawGridClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','DrawGrid'));

end;

procedure Tf_main.bb_ImageClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Image'));

end;

procedure Tf_main.bb_ShapeClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Shape'));

end;

procedure Tf_main.bb_BevelClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Bevel'));

end;

procedure Tf_main.bb_ScrollBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ScrollBox'));

end;

procedure Tf_main.bb_CheckListBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','CheckListBox'));

end;

procedure Tf_main.bb_SplitterClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Splitter'));

end;

procedure Tf_main.bb_StaticTextClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','StaticText'));

end;

procedure Tf_main.bb_ControlBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ControlBar'));

end;

procedure Tf_main.bb_ApplicationEventsClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ApplicationEvents'));

end;

procedure Tf_main.bb_ValueListEditorClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ValueListEditor'));

end;

procedure Tf_main.bb_LabeledEditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','LabeledEdit'));

end;

procedure Tf_main.bb_ColorBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ColorBox'));

end;

procedure Tf_main.bb_ChartClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','Chart'));

end;

procedure Tf_main.bb_ActionManagerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ActionManager'));

end;

procedure Tf_main.bb_ActionMainMenuBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ActionMainMenuBar'));

end;

procedure Tf_main.bb_ActionToolBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','ActionToolBar'));

end;

procedure Tf_main.bb_CustomizeDlgClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Additional.txt','CustomizeDlg'));

end;

procedure Tf_main.bb_TabControlClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','TabControl'));

end;

procedure Tf_main.bb_PageControlClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','PageControl'));

end;

procedure Tf_main.bb_ImageListClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','ImageList'));

end;

procedure Tf_main.bb_RichEditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','RichEdit'));

end;

procedure Tf_main.bb_TrackBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','TrackBar'));

end;

procedure Tf_main.bb_ProgressBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','ProgressBar'));

end;

procedure Tf_main.bb_UpDownClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','UpDown'));

end;

procedure Tf_main.bb_HotKeyClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','HotKey'));

end;

procedure Tf_main.bb_AnimateClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','Animate'));

end;

procedure Tf_main.bb_DateTimePickerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','DateTimePicker'));

end;

procedure Tf_main.bb_MonthCalendarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','MonthCalendar'));

end;

procedure Tf_main.bb_TreeViewClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','TreeView'));

end;

procedure Tf_main.bb_ListViewClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','ListView'));

end;

procedure Tf_main.bb_HeaderControlClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','HeaderControl'));

end;

procedure Tf_main.bb_StatusBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','StatusBar'));

end;

procedure Tf_main.bb_ToolBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','ToolBar'));

end;

procedure Tf_main.bb_CoolBarClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','CoolBar'));

end;

procedure Tf_main.bb_PageScrollerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','PageScroller'));

end;

procedure Tf_main.bb_ComboBoxExClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('Win32.txt','ComboBoxEx'));

end;

procedure Tf_main.bb_TimerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','Timer'));

end;

procedure Tf_main.bb_PaintBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','PaintBox'));

end;

procedure Tf_main.bb_MediaPlayerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','MediaPlayer'));

end;

procedure Tf_main.bb_OleContainerClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','OleContainer'));

end;

procedure Tf_main.bb_DdeClientConvClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','DdeClientConv'));

end;

procedure Tf_main.bb_DdeClientItemClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','DdeClientItem'));

end;

procedure Tf_main.bb_DdeServerConvClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','DdeServerConv'));

end;

procedure Tf_main.bb_DdeServerItemClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('System.txt','DdeServerItem'));

end;

procedure Tf_main.bb_DataSourseClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataAccess.txt','DataSource'));

end;

procedure Tf_main.bb_ClientDataSetClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataAccess.txt','ClientDataSet'));

end;

procedure Tf_main.bb_DataSetProviderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataAccess.txt','DataSetProvider'));

end;

procedure Tf_main.bb_XMLTransformClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataAccess.txt','XMLTransform'));

end;

procedure Tf_main.bb_XMLTransformProviderClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataAccess.txt','XMLTransformProvider'));

end;

procedure Tf_main.bb_XMLTransformClientClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataAccess.txt','XMLTransformClient'));

end;

procedure Tf_main.bb_DBGridClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBGrid'));

end;

procedure Tf_main.bb_DBNavigatorClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBNavigator'));

end;

procedure Tf_main.bb_DBTextClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBText'));

end;

procedure Tf_main.bb_DBEditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBEdit'));

end;

procedure Tf_main.bb_DBMemoClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBMemo'));

end;

procedure Tf_main.bb_DBImageClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBImage'));

end;

procedure Tf_main.bb_DBListBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBListBox'));

end;

procedure Tf_main.bb_DBComboBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBComboBox'));

end;

procedure Tf_main.bb_DBCheckBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBCheckBox'));

end;

procedure Tf_main.bb_DBRadioGroupClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBRadioGroup'));

end;

procedure Tf_main.bb_DBLookupListBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBLookupListBox'));

end;

procedure Tf_main.bb_DBLookupComboBoxClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBLookupComboBox'));

end;

procedure Tf_main.bb_DBRichEditClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBRichEdit'));

end;

procedure Tf_main.bb_DBCtrlGridClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBCtrlGrid'));

end;

procedure Tf_main.bb_DBChartClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DataControls.txt','DBChart'));

end;

procedure Tf_main.bb_SQLConnectionClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DbExpress.txt','SQLConnection'));

end;

procedure Tf_main.bb_SQLDataSetClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DbExpress.txt','SQLDataSet'));

end;

procedure Tf_main.bb_SQLQueryClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DbExpress.txt','SQLQuery'));

end;

procedure Tf_main.bb_SQLStoredProcClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DbExpress.txt','SQLStoredProc'));

end;

procedure Tf_main.bb_SQLTableClick(Sender: TObject);

begin

        m_help.Clear;

        m_help.Lines.Add(finding('DbExpress.txt','SQLTable'));