From d83baeb842ea828eaee90a0cd6575872a95240e8 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Sat, 8 Mar 2014 13:10:05 +0000 Subject: Pascal-style type correction Letter case correction small fixes Actman UA part dialog slightly changed git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_iconheader.inc | 24 ++---------------------- 1 file changed, 2 insertions(+), 22 deletions(-) (limited to 'include/delphi/m_iconheader.inc') diff --git a/include/delphi/m_iconheader.inc b/include/delphi/m_iconheader.inc index 1d99c41630..fbe75d7b05 100644 --- a/include/delphi/m_iconheader.inc +++ b/include/delphi/m_iconheader.inc @@ -44,31 +44,11 @@ const ITCN_SELCHANGEDKBD = 2; // structure is used for storing info about single tab type - MIcoTab = record + TMIcoTab = record hIcon:HICON; - szzName:TChar; + szName:TChar; flag:dword; data:LPARAM; end; -(* -#define MIcoTab_SetBackground(hwnd, hBmp) \ - (SendMessage((hwnd), ITCM_SETBACKGROUND, 0, (LPARAM)(hBmp))) -#define MIcoTab_SetSel(hwnd, idx) \ - (SendMessage((hwnd), ITCM_SETSEL, (idx), 0)) -#define MIcoTab_GetSel(hwnd) \ - (SendMessage((hwnd), ITCM_GETSEL, 0, 0)) -#define MIcoTab_GetItemData(hwnd, idx) \ - (SendMessage((hwnd), ITCM_GETITEMDATA, (idx), 0)) - -static __forceinline void MIcoTab_AddItem(HWND hwnd, TCHAR *lptzName, HICON hIcon, LPARAM data, BOOL bSharedIcon) -{ - MIcoTab mit = {0}; - mit.flag = (bSharedIcon?MITCF_SHAREDICON:0)|MITCF_TCHAR; - mit.hIcon = hIcon; - mit.tcsName = lptzName; - mit.data = data; - SendMessage(hwnd, ITCM_ADDITEM, (WPARAM)&mit, 0); -} -*) {$ENDIF} -- cgit v1.2.3