git-svn-id: https://svn.code.sf.net/p/kolmck/code@112 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2012-05-05 04:56:06 +00:00
parent eebab3adbf
commit ab1255291e
8 changed files with 537 additions and 74 deletions

View File

@ -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.

541
KOL.pas

File diff suppressed because it is too large Load Diff

View File

@ -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 );

View File

@ -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

View File

@ -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.

View File

@ -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).