diff options
Diffstat (limited to 'plugins/Pascal_Headers/m_options.inc')
| -rw-r--r-- | plugins/Pascal_Headers/m_options.inc | 131 |
1 files changed, 131 insertions, 0 deletions
diff --git a/plugins/Pascal_Headers/m_options.inc b/plugins/Pascal_Headers/m_options.inc new file mode 100644 index 0000000000..e4440cd2e4 --- /dev/null +++ b/plugins/Pascal_Headers/m_options.inc @@ -0,0 +1,131 @@ +{
+ Miranda IM: the free IM client for Microsoft Windows
+
+ Copyright 2000-2003 Miranda ICQ/IM project,
+ all portions of this codebase are copyrighted to the people
+ listed in contributors.txt.
+
+ This program is free software; you can redistribute it and/or
+ modify it under the terms of the GNU General Public License
+ as published by the Free Software Foundation; either version 2
+ of the License, or (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+}
+{$IFNDEF M_OPTIONS}
+{$DEFINE M_OPTIONS}
+
+const
+ { Opt/Initialise
+ The user opened the options dialog. Modules should do whatever initialisation
+ they need and call opt/addpage one or more times if they want pages displayed
+ in the options dialog
+ wParam=addInfo
+ lParam=0
+ addInfo should be passed straight to the wParam of opt/addpage
+ }
+ ME_OPT_INITIALISE:PAnsiChar = 'Opt/Initialise';
+
+ { Opt/AddPage
+ Must only be called during an opt/initialise hook
+ Adds a page to the options dialog
+ wParam=addInfo
+ lParam=(LPARAM)(OPTIONSDIALOGPAGE )odp
+ addInfo must have come straight from the wParam of opt/initialise
+ Pages in the options dialog operate just like pages in property sheets. See the
+ Microsoft documentation for details on how they operate.
+ Strings in the structure can be released as soon as the service returns, but
+ icons must be kept around. This is not a problem if you're loading them from a
+ resource.
+ Prior to v0.1.2.1 the options dialog would resize to fit the largest page, but
+ since then it is fixed in size. The largest page that fits neatly is 314x240
+ DLUs.
+ }
+
+type
+ POPTIONSDIALOGPAGE = ^TOPTIONSDIALOGPAGE;
+ TOPTIONSDIALOGPAGE = record
+ cbSize :int;
+ position :int; // a position number, lower numbers are topmost
+ szTitle :TChar; // [TRANSLATED-BY-CORE]
+ pfnDlgProc :pointer;
+ pszTemplate :PAnsiChar;
+ hInstance :THANDLE;
+ hIcon :HICON; // v0.1.0.1+
+ szGroup :TChar; // v0.1.0.1+ [TRANSLATED-BY-CORE]
+ groupPosition :int; // v0.1.0.1+
+ hGroupIcon :HICON; // v0.1.0.1+
+ flags :dword; // v0.1.2.1+
+ nIDBottomSimpleControl:int; // v0.1.2.1+
+ // if in simple mode the dlg will be cut off after this control,
+ // 0 to disable
+ nIDRightSimpleControl :int; // v0.1.2.1+
+ // if in simple mode the dlg will be cut off after this control,
+ // 0 to disable
+ expertOnlyControls :^uint;
+ nExpertOnlyControls :int; // v0.1.2.1+
+ // these controls will be hidden in simple mode. Array must remain valid
+ // for duration of dlg.
+ szTab :TChar; // v0.6.0.0+ [TRANSLATED-BY-CORE]
+ dwInitParam :LPARAM; // v0.8.0.0+ a value to pass to lParam of WM_INITDIALOG message
+ hLangpack :int;
+ end;
+
+const
+ {$IFNDEF WIN64}
+ OPTIONPAGE_OLD_SIZE = 40;
+ OPTIONPAGE_OLD_SIZE2 = 60;
+ OPTIONPAGE_OLD_SIZE3 = 64;
+ {$ELSE}
+ OPTIONPAGE_OLD_SIZE = SIZEOF(TOPTIONSDIALOGPAGE);
+ OPTIONPAGE_OLD_SIZE2 = SIZEOF(TOPTIONSDIALOGPAGE);
+ OPTIONPAGE_OLD_SIZE3 = SIZEOF(TOPTIONSDIALOGPAGE);
+ {$ENDIF}
+
+const
+ ODPF_SIMPLEONLY = 1; // page is only shown when in simple mode
+ ODPF_EXPERTONLY = 2; // " expert mode
+ ODPF_BOLDGROUPS = 4; // give group box titles a bold font
+ ODPF_UNICODE = 8; // string fields in OPTIONSDIALOGPAGE are WCHAR*
+ ODPF_USERINFOTAB = 16; // options page is tabbed
+ ODPF_DONTTRANSLATE = 32; // do not translate option page title
+
+const
+ PSN_EXPERTCHANGED = 2; //sent to pages via WM_NOTIFY when the expert checkbox is clicked. lParam=new state
+
+ PSM_ISEXPERT = WM_USER+101; //returns true/false
+ PSM_GETBOLDFONT = WM_USER+102; //returns HFONT used for group box titles
+
+ MS_OPT_ADDPAGE:PAnsiChar = 'Opt/AddPage';
+
+ { Opens the options dialog, optionally at the specified page v0.1.2.1+
+ wParam=0
+ lParam=(LPARAM)(OPENOPTIONSDIALOG*)&ood;
+ Returns 0 on success, nonzero on failure
+ The behaviour if the options dialog is already open is that it will just be
+ activated, the page won't be changed. This may change in the future. }
+type
+ POPENOPTIONSDIALOG = ^TOPENOPTIONSDIALOG;
+ TOPENOPTIONSDIALOG = record
+ cbSize :int;
+ pszGroup:PAnsiChar; // set to NULL if it's a root item
+ pszPage :PAnsiChar; // set to NULL to just open the options at no specific page
+ pszTab :PAnsiChar; // set to NULL to just open the options at no specific tab
+ end;
+
+const
+ MS_OPT_OPENOPTIONS:PAnsiChar = 'Opt/OpenOptions';
+
+//Opens the options dialog, with only specified page v0.8.0.x+
+ MS_OPT_OPENOPTIONSPAGE = 'Opt/OpenOptionsPage';
+
+ SETTING_SHOWEXPERT_DEFAULT = 1;
+
+{$ENDIF}
|