cpwvars.pas

生物信息学中的遗传数据分析的delphi源码。

{*********************************************}
{                                             }
{    COMPONENT for MS DOS and MS WINDOWS      }
{                                             }
{    Source code for Turbo Pascal 6.0 and     }
{    Turbo Pasacal for Windows 1.0 compilers. }
{                                             }
{    (c) 1991, Roderic D. M. Page             }
{                                             }
{*********************************************}


{*

   Constants, types, and variables used by more than one unit
   as part of the Windows interface to COMPONENT.

   7 Jan 1992 Created from other similar files I'd created.
*}

{$I CPDIR.INC}

unit cpwvars;

interface

uses
   WinTypes,
   WinDos;

const
   szAppName:PChar = 'COMPONENT';
   szAppProfileName:PChar = 'CPW.INI';
   FileExt:PChar   = '*.NEX';


const
   INIT_MENU_POS    =  4;  { Position of Window submenu on frame menu. }
	TREES_MENU_POS   =  3;  { Position of Trees submenu on frame menu. }

   { These next two constants are the position of popup menus
     on a submenu. Remember to include menu separators in these counts}
   ROOTING_MENU_POS    = 13;
   TREETOTREE_MENU_POS = 17;
   MAPTREES_MENU_POS   = 19;


var
   hMenuInit: HMenu;   { Handle to initial frame window menu. }

const
   { user defined messages }
   um_DisplayWindow   = wm_User + 3;
   um_CPError         = wm_User + 5;
{   um_Consensus       = wm_User + 6; Junk }
{   um_BlockSel        = wm_User + 9; Junk }

   { help system constants }
   HELPID_NULL                =   0;
   HELPID_TREES_ORDER_DIALOG  = 100;
   HELPID_TREES_SELECT_DIALOG = 101;
   HELPID_TREES_SHOW_DIALOG   = 102;
   HELPID_TREES_PRINT_DIALOG        = 103;
   HELPID_TREES_TREETOTREE_DIALOG   = 104;
   HELPID_TREES_CONSENSUS_DIALOG    = 105;
   HELPID_TREES_COMPARE_WITH_DIALOG = 106;
   HELPID_PROFILE_ALLTREES_DIALOG   = 107;
   HELPID_PROFILE_RANDOM_TREES      = 108;
   HELPID_MENU_LOG_OEM_TEXT   = 200;
   HELPID_MENU_LOG_SAVE       = 201;
   HELPID_MENU_LOG_PRINT      = 202;
   HELPID_MENU_LOG_CLEAR      = 203;
   HELPID_MENU_LOG_CREATE     = 204;
   HELPID_MENU_LOG_ECHO       = 205;
   HELPID_FILE_NEW               =206;
   HELPID_FILE_OPEN              =207;
   HELPID_FILE_SAVE              =208;
   HELPID_FILE_SAVEAS            =209;
   HELPID_FILE_EXECUTE           =210;
   HELPID_FILE_EXIT              =211;
   HELPID_TREES_SAVE             =212;
   HELPID_TREES_EXPORT           =213;
   HELPID_TREES_ORDER            =214;
   HELPID_TREES_SHOW             =215;
   HELPID_TREES_PRINT            =216;
   HELPID_TREES_INFO             =217;
   HELPID_TREES_SELECT           =218;
   HELPID_TREES_PRUNE            =219;
   HELPID_TREES_OUTGROUP         =220;
   HELPID_TREES_ROOTING          =221;
   HELPID_TREES_COMPARE          =222;
   HELPID_TREES_CONSENSUS        =223;
   HELPID_TREES_TREETOTREE       =224;
   HELPID_FILE_PRINT             =230;
   HELPID_FILE_PRINT_SETUP       =231;
   HELPID_MENUS                  =240;
   HELPID_NEXUS                  =241;
   HELPID_PROCEDURES             =242;
   HELPID_ERROR_MESSAGES         =243;
   HELPID_HELP_TUTORIAL          =244;

   { File menu }
   HELPID_FILE_PRINT_SELECTION      = 245;
   HELPID_FILE_PRINT_DISPLAY_BUFFER = 246;
   HELPID_FILE_SAVE_DISPLAY         = 247;
   HELPID_FILE_ECHO_OUTPUT          = 248;
   HELPID_FILE_OUTPUT_FILE          = 256;

   { Edit menu}
   HELPID_EDIT_UNDO                 = 249;
   HELPID_EDIT_CUT                  = 250;
   HELPID_EDIT_COPY                 = 251;
   HELPID_EDIT_PASTE                = 252;
   HELPID_EDIT_DELETE               = 253;
   HELPID_EDIT_CLEAR_DISPLAY_BUFFER = 254;
   HELPID_EDIT_EDIT_DISPLAY_BUFFER  = 255;

   { Trees menu }
   HELPID_TREES_NNI                 = 257;
   HELPID_TREES_PARTITIONS	    = 261;
   HELPID_TREES_TRIPLETS	    = 262;
   HELPID_TREES_QUARTETS	    = 263;
   HELPID_TREES_SUBTREE		    = 264;
   HELPID_TREES_EDIT                = 265;


   { Dialog boxes }
   HELPID_NNI_DIALOG_BOX            = 258;
   HELPID_QUARTETS_DIALOG_BOX       = 259;
   HELPID_TRIPLETS_DIALOG_BOX       = 260;


   { Window }
   HELPID_WINDOW_TILE	       =290;
   HELPID_WINDOW_CASCADE	       =291;
   HELPID_WINDOW_ARRANGE_ICONS    =292;
   HELPID_WINDOW_CLOSE_ALL	       =293;

   {Dialogs }
   HELPID_TREES_ABOUT_DIALOG			=294;
   HELPID_TREES_SAVE_DIALOG			=295;
   HELPID_TREES_PRUNE_REGRAFT_DIALOG		=296;
	HELPID_TREES_OUTGROUP_DIALOG			=297;



HELPID_TREES_ABOUT			=300;
HELPID_PROFILE_GET			=301;
HELPID_PROFILE_SAVE			=302;
HELPID_PROFILE_SAVE_AS		  =	303;
HELPID_PROFILE_ALL			=304;
HELPID_PROFILE_RANDOM		 =	305;
HELPID_PROFILE_COMPARE		=306;
HELPID_TREES_ROOTED			=307;
HELPID_TREES_UNROOTED		 =	308;
HELPID_TREES_ROOTED_OUTGROUP =	309;
HELPID_TREES_RECONCILE			=310;
HELPID_TREES_MAP				=311;
HELPID_TREES_PRUNE_EACH		=312;
HELPID_TREES_OPTIONS			=313;
HELPID_TREES_SEARCH			=314;
HELPID_TREES_REMOVE_DUPLICATES			=315;
HELPID_FILE_IMPORT =316;
HELPID_FILE_IMPORT_DIALOG = 317;
HELPID_HEURISTIC_SEARCH_DIALOG = 318;
HELPID_MAP_TREES_OPTIONS_DIALOG = 319;

var
   szHelpFileName,
   szEditorAppName : array[0..fsPathName] of char;
   szUserName,
   szUserLoc,
   szVersion : array[0..60] of char;
   bTestRelease : Boolean;
   UnTitledCount : integer;

implementation
begin
   UntitledCount := 0;
end.