3.18
git-svn-id: https://svn.code.sf.net/p/kolmck/code@112 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
@ -1,5 +1,6 @@
|
|||||||
package addons_D2006;
|
package addons_D2006;
|
||||||
|
|
||||||
|
{$R 'MCKMonthCalendar.res'}
|
||||||
{$R 'addons.res'}
|
{$R 'addons.res'}
|
||||||
{$R 'mckCCtrls.dcr'}
|
{$R 'mckCCtrls.dcr'}
|
||||||
{$R 'mckHTTPDownload.dcr'}
|
{$R 'mckHTTPDownload.dcr'}
|
||||||
@ -88,6 +89,8 @@ contains
|
|||||||
mckDHTML in 'mckDHTML.pas',
|
mckDHTML in 'mckDHTML.pas',
|
||||||
KolZLibBzip in 'KolZLibBzip.pas',
|
KolZLibBzip in 'KolZLibBzip.pas',
|
||||||
KOLMHIPEdit in 'KOLMHIPEdit.pas',
|
KOLMHIPEdit in 'KOLMHIPEdit.pas',
|
||||||
MCKMHIPEdit in 'MCKMHIPEdit.pas';
|
MCKMHIPEdit in 'MCKMHIPEdit.pas',
|
||||||
|
MCKMonthCalendar in 'MCKMonthCalendar.pas',
|
||||||
|
KOLMonthCalendar in 'KOLMonthCalendar.pas';
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
@ -111,7 +111,9 @@ type
|
|||||||
procedure CreateDialogForm;
|
procedure CreateDialogForm;
|
||||||
property _FindFirstFileEx: TFindFirstFileEx read GetFindFirstFileEx;
|
property _FindFirstFileEx: TFindFirstFileEx read GetFindFirstFileEx;
|
||||||
function _FindFirstFileExW: Boolean;
|
function _FindFirstFileExW: Boolean;
|
||||||
|
{$IFDEF DIRDLGEX_LINKSPANEL}
|
||||||
procedure SelChanged( Sender: PObj );
|
procedure SelChanged( Sender: PObj );
|
||||||
|
{$ENDIF}
|
||||||
procedure DeleteNode( node: Integer );
|
procedure DeleteNode( node: Integer );
|
||||||
procedure DestroyingForm( Sender: PObj );
|
procedure DestroyingForm( Sender: PObj );
|
||||||
public
|
public
|
||||||
@ -485,7 +487,9 @@ begin
|
|||||||
DirTree.OnMouseDblClk := DoubleClick;
|
DirTree.OnMouseDblClk := DoubleClick;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
MsgPanel.OnMessage := DoMsg;
|
MsgPanel.OnMessage := DoMsg;
|
||||||
|
{$IFDEF DIRDLGEX_LINKSPANEL}
|
||||||
DirTree.OnSelChange := SelChanged;
|
DirTree.OnSelChange := SelChanged;
|
||||||
|
{$ENDIF}
|
||||||
DlgClient := DTSubPanel; // !!!
|
DlgClient := DTSubPanel; // !!!
|
||||||
s := CancelCaption; if s = '' then s := 'Cancel';
|
s := CancelCaption; if s = '' then s := 'Cancel';
|
||||||
BtCancel := NewButton( BtnPanel, s );
|
BtCancel := NewButton( BtnPanel, s );
|
||||||
|
21
KOL_ASM.inc
21
KOL_ASM.inc
@ -1,6 +1,6 @@
|
|||||||
//------------------------------------------------------------------------------
|
//------------------------------------------------------------------------------
|
||||||
// KOL_ASM.inc (to inlude in KOL.pas)
|
// KOL_ASM.inc (to inlude in KOL.pas)
|
||||||
// v 3.16
|
// v 3.17
|
||||||
|
|
||||||
function MsgBox( const S: KOLString; Flags: DWORD ): DWORD;
|
function MsgBox( const S: KOLString; Flags: DWORD ): DWORD;
|
||||||
asm
|
asm
|
||||||
@ -5570,6 +5570,7 @@ asm
|
|||||||
CALL IsWindow
|
CALL IsWindow
|
||||||
TEST EAX, EAX
|
TEST EAX, EAX
|
||||||
JZ @@destroy2
|
JZ @@destroy2
|
||||||
|
(* -- moved to WM_NCDESTROY handler - VK + Alexey Kirov
|
||||||
{$IFDEF USE_PROP}
|
{$IFDEF USE_PROP}
|
||||||
PUSH offset[ID_SELF] //* Remarked By M.Gerasimov
|
PUSH offset[ID_SELF] //* Remarked By M.Gerasimov
|
||||||
PUSH [EBX].fHandle //* unremarked to prevent problems with progress bar
|
PUSH [EBX].fHandle //* unremarked to prevent problems with progress bar
|
||||||
@ -5580,6 +5581,7 @@ asm
|
|||||||
PUSH [EBX].fHandle
|
PUSH [EBX].fHandle
|
||||||
CALL SetWindowLong
|
CALL SetWindowLong
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
*)
|
||||||
{$IFDEF USE_fNCDestroyed}
|
{$IFDEF USE_fNCDestroyed}
|
||||||
CMP [EBX].fNCDestroyed, 0
|
CMP [EBX].fNCDestroyed, 0
|
||||||
JNZ @@destroy2
|
JNZ @@destroy2
|
||||||
@ -5885,8 +5887,17 @@ asm //cmd //opd
|
|||||||
JMP @@calldef
|
JMP @@calldef
|
||||||
//********************************************************** Added By M.Gerasimov
|
//********************************************************** Added By M.Gerasimov
|
||||||
@@chk_WM_DESTROY:
|
@@chk_WM_DESTROY:
|
||||||
|
{$IFnDEF SMALLER_CODE}
|
||||||
|
MOV EDX, [EDI].TMsg.hWnd
|
||||||
|
{$ENDIF SMALLER_CODE}
|
||||||
CMP AX, WM_DESTROY
|
CMP AX, WM_DESTROY
|
||||||
JNE @@chk_WM_NCDESTROY
|
JNE @@chk_WM_NCDESTROY
|
||||||
|
|
||||||
|
{$IFnDEF SMALLER_CODE}
|
||||||
|
CMP EDX, [ESI].TControl.fHandle
|
||||||
|
JNE @@chk_WM_NCDESTROY
|
||||||
|
{$ENDIF SMALLER_CODE}
|
||||||
|
|
||||||
{$IFDEF USE_FLAGS}
|
{$IFDEF USE_FLAGS}
|
||||||
OR [ESI].TControl.fFlagsG2, (1 shl G2_BeginDestroying)
|
OR [ESI].TControl.fFlagsG2, (1 shl G2_BeginDestroying)
|
||||||
{$ELSE}
|
{$ELSE}
|
||||||
@ -5895,10 +5906,14 @@ asm //cmd //opd
|
|||||||
JMP @@calldef
|
JMP @@calldef
|
||||||
//**********************************************************
|
//**********************************************************
|
||||||
@@chk_WM_NCDESTROY:
|
@@chk_WM_NCDESTROY:
|
||||||
//CMP word ptr [EDI].TMsg.message, WM_NCDESTROY
|
|
||||||
CMP AX, WM_NCDESTROY
|
CMP AX, WM_NCDESTROY
|
||||||
JNE @@chk_WM_SIZE // @@chk_CM_RELEASE
|
JNE @@chk_WM_SIZE // @@chk_CM_RELEASE
|
||||||
//********************************************************** Added By M.Gerasimov
|
//********************************************************** Added By M.Gerasimov
|
||||||
|
{$IFnDEF SMALLER_CODE}
|
||||||
|
CMP EDX, [ESI].TControl.fHandle
|
||||||
|
JNE @@chk_WM_SIZE
|
||||||
|
{$ENDIF SMALLER_CODE}
|
||||||
|
|
||||||
{$IFDEF USE_PROP}
|
{$IFDEF USE_PROP}
|
||||||
PUSH offset[ID_SELF]
|
PUSH offset[ID_SELF]
|
||||||
PUSH [ESI].fHandle
|
PUSH [ESI].fHandle
|
||||||
@ -5909,8 +5924,8 @@ asm //cmd //opd
|
|||||||
PUSH [ESI].fHandle
|
PUSH [ESI].fHandle
|
||||||
CALL SetWindowLong
|
CALL SetWindowLong
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
JMP @@calldef
|
||||||
//**********************************************************
|
//**********************************************************
|
||||||
|
|
||||||
@@return0:
|
@@return0:
|
||||||
XOR EAX, EAX
|
XOR EAX, EAX
|
||||||
JMP @@exit // WM_NCDESTROY and CM_RELEASE
|
JMP @@exit // WM_NCDESTROY and CM_RELEASE
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
KEY OBJECTS LIBRARY for Delphi (and Free Pascal Compiler) - to make applications small and power. This library is freeware and open source. Delphi 2, 3, 4, 5, 6, 7, 8, BDS 2005, 2006, 2010, TurboDelphi and Free Pascal Compiler 1.0.5, 1.0.6, and higher (2.0.4) are supported. Partially compatible with Kylix (Linux/Qt platform, use special converting tool and provided files in Tools section on the site http://bonanzas.rinet.ru)
|
KEY OBJECTS LIBRARY for Delphi (and Free Pascal Compiler) - to make applications small and power. This library is freeware and open source. Delphi 2, 3, 4, 5, 6, 7, 8, BDS 2005, 2006, 2010, TurboDelphi, Delphi XE, Delphi XE2 and Free Pascal Compiler 1.0.5, 1.0.6, and higher (2.0.4) are supported. Partially compatible with Kylix (Linux/Qt platform, use special converting tool and provided files in Tools section on the site http://bonanzas.rinet.ru)
|
||||||
|
|
||||||
Copyright (C) by Vladimir Kladov, 1999-2010.
|
Copyright (C) by Vladimir Kladov, 1999-2010.
|
||||||
Some parts of code are Copyright (C) intellectual property by other people, see comments in code and on KOL site. Thanks to all for help with KOL and MCK!
|
Some parts of code are Copyright (C) intellectual property by other people, see comments in code and on KOL site. Thanks to all for help with KOL and MCK!
|
||||||
|
|
||||||
v. 3.16 (26-Nov-2011)
|
v. 3.18 (23-Apr-2012)
|
||||||
|
|
||||||
To get newer version, go to Web-page http://www.kolmck.net and get there updates.
|
To get newer version, go to Web-page http://www.kolmck.net and get there updates.
|
||||||
|
|
||||||
|
@ -1,12 +1,12 @@
|
|||||||
KEY OBJECTS LIBRARY ��� Delphi (� Free Pascal Compiler) - ������������ ��� ����, ����� ������� ���������, ������������� � �������������� ����� �������, ���������� � ����� ����������.
|
KEY OBJECTS LIBRARY ��� Delphi (� Free Pascal Compiler) - ������������ ��� ����, ����� ������� ���������, ������������� � �������������� ����� �������, ���������� � ����� ����������.
|
||||||
Copyright (C) by Vladimir Kladov, 1999-2007. ���������, � ��������� ��������.
|
Copyright (C) by Vladimir Kladov, 1999-2007. ���������, � ��������� ��������.
|
||||||
|
|
||||||
������ 3.16 (26 ������ 2011 �.)
|
������ 3.18 (23 ������ 2012 �.)
|
||||||
|
|
||||||
_________________
|
_________________
|
||||||
������� ��������:
|
������� ��������:
|
||||||
�� KOL - Key Objects Library - ��� ���������� �������� ��� ���������������� � ����� Delphi.
|
�� KOL - Key Objects Library - ��� ���������� �������� ��� ���������������� � ����� Delphi.
|
||||||
�� �������������� ������ Delphi2, Delph3, Delphi4, Delphi5, Delphi6, Delphi7, Delphi8, BDS2005, BDS2006, BDS2010, Turbo-Delphi � ��� �� Free Pascal v1.0.5, v2.0.4 � ����. ������� ��� �� ��������� ������������� � Kylix (��������� ��������� � ����� ������, ��. � ������� "����������� ������������" �� ����� http://bonanzas.rinet.ru). ������� ������ ��� ������������� �� ������ ��������� (Linux, Win CE).
|
�� �������������� ������ Delphi2, Delph3, Delphi4, Delphi5, Delphi6, Delphi7, Delphi8, BDS2005, BDS2006, BDS2010, Turbo-Delphi, Delphi XE, Delphi XE2, � ��� �� Free Pascal v1.0.5, v2.0.4 � ����. ������� ��� �� ��������� ������������� � Kylix (��������� ��������� � ����� ������, ��. � ������� "����������� ������������" �� ����� http://bonanzas.rinet.ru). ������� ������ ��� ������������� �� ������ ��������� (Linux, Win CE).
|
||||||
���������� KOL ��������� ������������� ����������� ���������� GUI-���������� (�� 11� ��� ������ - ��� ������� ������������� ������������ ������ ��������� ������� system, sysinit, ��. �� ����� ������ "������"). ������� ����� ���� ���������� �� ���������.
|
���������� KOL ��������� ������������� ����������� ���������� GUI-���������� (�� 11� ��� ������ - ��� ������� ������������� ������������ ������ ��������� ������� system, sysinit, ��. �� ����� ������ "������"). ������� ����� ���� ���������� �� ���������.
|
||||||
�� � ���������� ����������� ��������� - ��������� ������� (xHelpGen), ����������� ��������� ������������ �� ���������� � html-�������. ������� ����������� �� ������ ������������ � �������� �������, ��� ��� ������������ ������ ����� ������ � ����� ������ � ������ ������������.
|
�� � ���������� ����������� ��������� - ��������� ������� (xHelpGen), ����������� ��������� ������������ �� ���������� � html-�������. ������� ����������� �� ������ ������������ � �������� �������, ��� ��� ������������ ������ ����� ������ � ����� ������ � ������ ������������.
|
||||||
�� � �������������� MCK (Mirror Classes Kit - ����� ���������� �������) ��� �������� ���������� ���������� �������� � ������ ���� �������� � ��� �������������, ������������ KOL. ������������� � MCK ������� ����������� ��� ����� ��������� ����������, ������������� ��������� �-��� ����������� ������ ������ �������-���� ��� ������������� ���� (��. ���������: Collapse).
|
�� � �������������� MCK (Mirror Classes Kit - ����� ���������� �������) ��� �������� ���������� ���������� �������� � ������ ���� �������� � ��� �������������, ������������ KOL. ������������� � MCK ������� ����������� ��� ����� ��������� ����������, ������������� ��������� �-��� ����������� ������ ������ �������-���� ��� ������������� ���� (��. ���������: Collapse).
|
||||||
|
Reference in New Issue
Block a user