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;
|
||||
|
||||
{$R 'MCKMonthCalendar.res'}
|
||||
{$R 'addons.res'}
|
||||
{$R 'mckCCtrls.dcr'}
|
||||
{$R 'mckHTTPDownload.dcr'}
|
||||
@ -88,6 +89,8 @@ contains
|
||||
mckDHTML in 'mckDHTML.pas',
|
||||
KolZLibBzip in 'KolZLibBzip.pas',
|
||||
KOLMHIPEdit in 'KOLMHIPEdit.pas',
|
||||
MCKMHIPEdit in 'MCKMHIPEdit.pas';
|
||||
MCKMHIPEdit in 'MCKMHIPEdit.pas',
|
||||
MCKMonthCalendar in 'MCKMonthCalendar.pas',
|
||||
KOLMonthCalendar in 'KOLMonthCalendar.pas';
|
||||
|
||||
end.
|
||||
|
@ -111,7 +111,9 @@ type
|
||||
procedure CreateDialogForm;
|
||||
property _FindFirstFileEx: TFindFirstFileEx read GetFindFirstFileEx;
|
||||
function _FindFirstFileExW: Boolean;
|
||||
{$IFDEF DIRDLGEX_LINKSPANEL}
|
||||
procedure SelChanged( Sender: PObj );
|
||||
{$ENDIF}
|
||||
procedure DeleteNode( node: Integer );
|
||||
procedure DestroyingForm( Sender: PObj );
|
||||
public
|
||||
@ -485,7 +487,9 @@ begin
|
||||
DirTree.OnMouseDblClk := DoubleClick;
|
||||
{$ENDIF}
|
||||
MsgPanel.OnMessage := DoMsg;
|
||||
{$IFDEF DIRDLGEX_LINKSPANEL}
|
||||
DirTree.OnSelChange := SelChanged;
|
||||
{$ENDIF}
|
||||
DlgClient := DTSubPanel; // !!!
|
||||
s := CancelCaption; if s = '' then s := 'Cancel';
|
||||
BtCancel := NewButton( BtnPanel, s );
|
||||
|
21
KOL_ASM.inc
21
KOL_ASM.inc
@ -1,6 +1,6 @@
|
||||
//------------------------------------------------------------------------------
|
||||
// KOL_ASM.inc (to inlude in KOL.pas)
|
||||
// v 3.16
|
||||
// v 3.17
|
||||
|
||||
function MsgBox( const S: KOLString; Flags: DWORD ): DWORD;
|
||||
asm
|
||||
@ -5570,6 +5570,7 @@ asm
|
||||
CALL IsWindow
|
||||
TEST EAX, EAX
|
||||
JZ @@destroy2
|
||||
(* -- moved to WM_NCDESTROY handler - VK + Alexey Kirov
|
||||
{$IFDEF USE_PROP}
|
||||
PUSH offset[ID_SELF] //* Remarked By M.Gerasimov
|
||||
PUSH [EBX].fHandle //* unremarked to prevent problems with progress bar
|
||||
@ -5580,6 +5581,7 @@ asm
|
||||
PUSH [EBX].fHandle
|
||||
CALL SetWindowLong
|
||||
{$ENDIF}
|
||||
*)
|
||||
{$IFDEF USE_fNCDestroyed}
|
||||
CMP [EBX].fNCDestroyed, 0
|
||||
JNZ @@destroy2
|
||||
@ -5885,8 +5887,17 @@ asm //cmd //opd
|
||||
JMP @@calldef
|
||||
//********************************************************** Added By M.Gerasimov
|
||||
@@chk_WM_DESTROY:
|
||||
{$IFnDEF SMALLER_CODE}
|
||||
MOV EDX, [EDI].TMsg.hWnd
|
||||
{$ENDIF SMALLER_CODE}
|
||||
CMP AX, WM_DESTROY
|
||||
JNE @@chk_WM_NCDESTROY
|
||||
|
||||
{$IFnDEF SMALLER_CODE}
|
||||
CMP EDX, [ESI].TControl.fHandle
|
||||
JNE @@chk_WM_NCDESTROY
|
||||
{$ENDIF SMALLER_CODE}
|
||||
|
||||
{$IFDEF USE_FLAGS}
|
||||
OR [ESI].TControl.fFlagsG2, (1 shl G2_BeginDestroying)
|
||||
{$ELSE}
|
||||
@ -5895,10 +5906,14 @@ asm //cmd //opd
|
||||
JMP @@calldef
|
||||
//**********************************************************
|
||||
@@chk_WM_NCDESTROY:
|
||||
//CMP word ptr [EDI].TMsg.message, WM_NCDESTROY
|
||||
CMP AX, WM_NCDESTROY
|
||||
JNE @@chk_WM_SIZE // @@chk_CM_RELEASE
|
||||
//********************************************************** Added By M.Gerasimov
|
||||
{$IFnDEF SMALLER_CODE}
|
||||
CMP EDX, [ESI].TControl.fHandle
|
||||
JNE @@chk_WM_SIZE
|
||||
{$ENDIF SMALLER_CODE}
|
||||
|
||||
{$IFDEF USE_PROP}
|
||||
PUSH offset[ID_SELF]
|
||||
PUSH [ESI].fHandle
|
||||
@ -5909,8 +5924,8 @@ asm //cmd //opd
|
||||
PUSH [ESI].fHandle
|
||||
CALL SetWindowLong
|
||||
{$ENDIF}
|
||||
JMP @@calldef
|
||||
//**********************************************************
|
||||
|
||||
@@return0:
|
||||
XOR EAX, EAX
|
||||
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.
|
||||
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.
|
||||
|
||||
|
@ -1,12 +1,12 @@
|
||||
KEY OBJECTS LIBRARY ��� Delphi (� Free Pascal Compiler) - ������������ ��� ����, ����� ������� ���������, ������������� � �������������� ����� �������, ���������� � ����� ����������.
|
||||
Copyright (C) by Vladimir Kladov, 1999-2007. ���������, � ��������� ��������.
|
||||
|
||||
������ 3.16 (26 ������ 2011 �.)
|
||||
������ 3.18 (23 ������ 2012 �.)
|
||||
|
||||
_________________
|
||||
������� ��������:
|
||||
�� 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, ��. �� ����� ������ "������"). ������� ����� ���� ���������� �� ���������.
|
||||
�� � ���������� ����������� ��������� - ��������� ������� (xHelpGen), ����������� ��������� ������������ �� ���������� � html-�������. ������� ����������� �� ������ ������������ � �������� �������, ��� ��� ������������ ������ ����� ������ � ����� ������ � ������ ������������.
|
||||
�� � �������������� MCK (Mirror Classes Kit - ����� ���������� �������) ��� �������� ���������� ���������� �������� � ������ ���� �������� � ��� �������������, ������������ KOL. ������������� � MCK ������� ����������� ��� ����� ��������� ����������, ������������� ��������� �-��� ����������� ������ ������ �������-���� ��� ������������� ���� (��. ���������: Collapse).
|
||||
|
Reference in New Issue
Block a user