diff options
| author | George Hazan <george.hazan@gmail.com> | 2016-10-03 16:48:12 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2016-10-03 16:48:12 +0000 |
| commit | 0976190894d653d5062f8ef6befabf46218f2d24 (patch) | |
| tree | 4a26f4baa9a535256d7220a0c04a698390cab4e5 /include/delphi/m_helpers.inc | |
| parent | 3c4ccf82586be6b22380df2bc35ae4770f91651f (diff) | |
- inlined helpers for fonts, colors & effects creation replaced with functions;
- services for getting fonts, colors & effects removed;
- some memory corruptions removed
git-svn-id: http://svn.miranda-ng.org/main/trunk@17347 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'include/delphi/m_helpers.inc')
| -rw-r--r-- | include/delphi/m_helpers.inc | 31 |
1 files changed, 4 insertions, 27 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc index 62bdd92c10..f923dcc8d9 100644 --- a/include/delphi/m_helpers.inc +++ b/include/delphi/m_helpers.inc @@ -60,14 +60,8 @@ function Skin_AddIcon(si:PSKINICONDESC):THANDLE; procedure Icon_Register (hInst:HINST; const szSection:PAnsiChar; pIcons:pIconItem ; iCount:size_t; prefix:PAnsiChar);
procedure Icon_RegisterW(hInst:HINST; const szSection:PWideChar; pIcons:pIconItemW; iCount:size_t; prefix:PAnsiChar);
-procedure FontRegister (pFontID:pFontID);
-procedure FontRegisterW(pFontID:pFontIDW);
-
-procedure ColourRegister (pColorID:pColourID);
-procedure ColourRegisterW(pColorID:pColourIDW);
-
-procedure EffectRegister (pEffectID:pEffectID);
-procedure EffectRegisterW(pEffectID:pEffectIDW);
+procedure FontRegister(pFontID:pFontID);
+procedure ColourRegister(pColorID:pColourID);
function TopToolbar_AddButton(pButton:PTTBButton):THANDLE;
@@ -421,29 +415,12 @@ end; procedure FontRegister(pFontID:pFontID);
begin
- CallService(MS_FONT_REGISTERA, WPARAM(pFontID), hLangpack);
-end;
-procedure FontRegisterW(pFontID:pFontIDW);
-begin
- CallService(MS_FONT_REGISTERW, WPARAM(pFontID), hLangpack);
+ Font_Register(pFontID, hLangpack);
end;
procedure ColourRegister(pColorID:pColourID);
begin
- CallService(MS_COLOUR_REGISTERA, WPARAM(pColorID), hLangpack);
-end;
-procedure ColourRegisterW(pColorID:pColourIDW);
-begin
- CallService(MS_COLOUR_REGISTERW, WPARAM(pColorID), hLangpack);
-end;
-
-procedure EffectRegister(pEffectID:pEffectID);
-begin
- CallService(MS_EFFECT_REGISTERA, WPARAM(pEffectID), hLangpack);
-end;
-procedure EffectRegisterW(pEffectID:pEffectIDW);
-begin
- CallService(MS_EFFECT_REGISTERW, WPARAM(pEffectID), hLangpack);
+ Colour_Register(pColorID, hLangpack);
end;
function TopToolbar_AddButton(pButton:PTTBButton):THANDLE;
|