-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathwhatsnew.txt
246 lines (205 loc) · 11.4 KB
/
whatsnew.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
-------------------------------------------------------------------
05.03.21
-------------------------------------------------------------------
Changes after last svn:
* MCK: ux visual style mode updated
- MCK: remove pcode / collapse
- MCK: remove FormCompact
- MCK: source formatting: mckObjs.pas, mckCtrls.pas (by cnpack)
- KOL: remove codegeneration for MCK FormCompact
* KOL: move some defines from KOL.pas to KOLDEF.inc
* KOL: some refactoring\cleaning
* KOL: remove unused defines (SAFE_CODE, USE_CMOV, COMMANDACTIONS_OBJ, USE_AUTOFREE4CONTROLS, USE_AUTOFREE4CHILDREN, NEW_ALIGN, PROVIDE_EXITCODE - always on; OLD_REFCOUNT, SMALLEST_CODE*, SPEED_FASTER, USE_PROP, UMERIC_APPICON, CUSTOM_APPICON, TEST_INDEXOFCHARS_COMPAT, _FPC, REDEFINE_ABS, OLD_*, NOT_FIX_MODAL, NOT_UNLOAD_RICHEDITLIB, ANCHORS_WM_SIZE, COMMANDACTIONS_RECORD - always off; OLD_FREE and etc..)
* KOL: fix WStrRScan - affected: ExtractFileNeme, ExtractFileExt, ExtractFilePath and "Create new mck project" in XE 10.2 and maybe other high versions (by Hubert Bannwarth)
* KOL: fix "Create new mck project" in XE 10.2/3 and maybe other versions
* KOL: remove some old\commented\broken\asm code and defines like "*ASM_NO_VERSION*"
* KOLadd: remove some old\commented\broken\asm code and defines like "*ASM_NO_VERSION*"
* and some else..
Tested on:
Delphi 2006 x32(ansi\unicode)
Delphi XE 10.3 x32(unicode), x64(unicode)
-------------------------------------------------------------------
3.12.14
-------------------------------------------------------------------
Merge with unofficial 3.22 version compatible with fpc 2.6.4 and 2.7.1 i386 and x64 compilers by "Dmitri K dmiko@mail333.com (dmiko)" principal work
and "Thaddy de Koning thaddy@thaddy.com" (merge 3.22)
KOL:
* a LOT of declarations\fixes for x64\FPC support (by dmiko and Thaddy)
+ TList.SortEx - for custom sorting Items
+ TStrList.IndexOfName_NoCaseFast, TStrList.IndexOfName_Fast, TStrList.Values_NocaseFast[], TStrList.Values_Fast[] - faster than TStrList.IndexOfName\Values\etc..
+ TStrList.Remove\RemoveByName - Removes first entry of a Value\LineName in the list
+ TStrList.IsEmpty - check list empty
+ TStrList.Add2\Insert2\Delete2\Items2[Idx, Col]\Swap2\IndexOf2\Count2\ColsCount - work with TStrList like with table[Idx, Col]
+ TStrListEx.SortEx - for custom sorting Items with Objects
* SVN_BUG#1: TStrListEx.SortEx - breaks objects association fixed (thanks to tacituseu)
* SVN_BUG#2: TControl.FreeCharFormatRec - fixed STATIC_RICHEDIT_DATA define (by tacituseu)
* TControl.LVColInsert - return inserted col index
+ TControl.LVGetHeader - Gets the handle to the header control used by the list-view control
+ TControl.LVSubItemAtPos - Return index of subitem at the given position
+ TControl.LVIndexOfEx - Returns first list view item index with subitem ACol matching S
+ TControl.TVItemInsert - extended version of TVInsert: can set images and set ItemData
* NewReadWriteFileStream - smaller code by use winapi flag ofOpenAlways instead FileExists function
* TMenu.Destroy\RemoveSubMenu - fixed memory leak on destroy (by dotnet20)
* CallDefFrameProc - fixed crash when use MDI
- ASM: TStrList.AddStrings\LoadFromStream\MergeFromFile\SaveToFile - switched off because maybe can get crash (need tests)
* PAS: TStrList.LoadFromStream\SaveToFile - fixed
* TStrList.IndexOfName - small speedup
* TStrList.IndexOfName_NoCase - this code "while (p^ <> #0) and (p^ <= ' ') do inc( p );" is deleted, because sometimes get deadlock (wtf code doing!?)
* ASM: WndProcTreeView - fixed TV_DRAG_RBUTTON define
+ TFastStrListEx.NameDelimiter - like in TStrList
+ TFastStrListEx.SetValue - like in TStrList
MCK:
* updated to MCK v3.23 (with some fixes)
* MCKAppExpert200x wizard - fixed unit name
* TKOLListView.SetupLast - fixed crash
+ TKOLListView.OnLVCustomDraw - added event assign
+ TKOLMemo.Paint\WYSIWIGPaintImplemented - add visual style for memo in designer mode
+ !!!ALPHA VERSION!!!: ux visual style mode for some controls in designer mode (PaintType: ptWYSIWIG) (WinXP minimum req.)
err.pas:
* moved from addons to kolmck folder
* fixed exception.message in IDE
* source code formating
common:
* cleaning...
* updated readmes
* dpk packages replaced and renamed (KOLMCKXXXX.dpk)
maybe forgot something...
KOLAddons package will be updated later..
-------------------------------------------------------------------
24.03.10
-------------------------------------------------------------------
* ïàêåò ñìåøàí ñ 2.89 âåðñèåé
-------------------------------------------------------------------
22.09.09
-------------------------------------------------------------------
* äîáàâëåí àñìîâûé âàðèàíò WinVer (MTsvDN)
-------------------------------------------------------------------
09.09.09 %)
-------------------------------------------------------------------
* íà÷àëñÿ ãëîáàëüíûé ðåôàêòîðèíã:
* delphidef.inc îáúåäèíåí ñ KOLDEF.INC
* UNLOAD_RICHEDITLIB - ïî-óìîë÷àíèþ âûêëþ÷åíà
* MIRROR*.dpk -> KOLMCK_D%VER%.dpk
* óäàëåíû mirro*.res, îñòàâëåí îäèí KOLMCK.res
* óäàëåíû DCU ïàïêè D2006-D2007
-------------------------------------------------------------------
30.08.09
-------------------------------------------------------------------
* Ñîâìåñòèìîñòü ñ Delphi 2010
-------------------------------------------------------------------
19.08.09
-------------------------------------------------------------------
DefFont.FontHeight := -11;
-------------------------------------------------------------------
9.08.09
-------------------------------------------------------------------
èçìåíåíèÿ:
*1. Ñòðîêà 5115:
FBitBtnGetCaption: function( Self_: PControl; const S: KOLString ): KOLString;
Êýïøåí ìîæåò áûòü Wide, ò.÷. íóæåí KOLString
*2. Ñòðîêà 9724:
function NewMDIChild( AParent: PControl; const ACaption: KOLString ): PControl;
Êýïøåí ìîæåò áûòü Wide, ò.÷. íóæåí KOLString
*4. Ñòðîêà 17105:
( PKOLChar(@fData.Font.Name[0]), PKOLChar( Value ), Length(Value) * SizeOf(KOLChar) {LF_FACESIZE} ); //TODO: fixme
Ïðè UNICODE_CTRLS íåîáõîäèìî ó÷èòûâàòü SizeOf(KOLChar) èíà÷å èäåò îáðåçêà òåêñòà ïî ñåðåäèíå...
*5. ëó÷øå:
Find_Close( FD );
ïåðåìåñòèòü ñ ñòð.21583 íà 3 ñòðîêè íèæå. Ïîñêîëüêó äàëüøå èñïîëüçóåòñÿ FD.dwFileAttributes è FileTimeToLocalFileTime( FD.ftLastWriteTime, LFT ). È åñëè ùàñ (â XP) - ýòî ìîæåò áûòü íåïðèíöèïèàëüíî, òî â ïîñëåäóþùåì ìîæåò âûëåçòè êîñÿê, ò.ê. ôàòè÷åñêè òû FD çàêðûë, íî ðàáîòàòü ñ íèì õî÷åøü...
*6.
procedure TDirList.ScanDirectory(const DirPath, Filter: KOLString; Attr: DWord);
äîáàâëåíà íîâàÿ äèðåêòèâà FORCE_ALTERNATEFILENAME - ïðèíóäèòåëüíîå èñïîëüçîâàíèå àëüòåðíàòèâíîãî èìåíè ïóòè è èìåíè ôàéëà äëÿ þíèêîä ïóòåé
*7. Ñòð. 29024
function ExcludeAmpersands( Self_: PControl; const S: KOLString ): KOLString;
AnsiString -> KOLString
*8. Ñòð. 31468 (Ïðîäîëæåíèå ïóíêòà 2) AnsiString -> KOLString
*9. Ñòð. 32737
/// if WinVer >= wvNT then ÇÀÊÎÌÌÅÍÒÈÐÎÂÀÒÜ ÑÒÐÎÊÓ ÎÁßÇÀÒÅËÜÍÎ!!! Ýòîò ôèêñ äëÿ ðàáîòû ïðîãðàìì íà Win9x/ME
Åñëè îíà ðàñêîìåíòèðîâàííà è åñòü ìåíþ. Àáçäåö íàñòóïàåò íå òîëüêî ïðèëîæåíèþ, íî è âñåé ñèñòåìå
*10. Ôèêñ óòå÷êè ïàìÿòè â TControl.CreateWindow:
*11. Ñòð. 4006
procedure TDirList.ScanDirectoryEx(const DirPath, Filters: AnsiString;
Ôèëüòðû ìîãóò áûòü KOLString
*12. visual_xp_styles.inc
Sender.OnPaint(Sender, GetWindowDC(Msg.hWnd));
->
dDC := GetWindowDC(Msg.hWnd);
Sender.OnPaint(Sender, dDC);
ReleaseDC( Msg.hWnd, dDC );
*13. ìíîæåñòâî ôèêñîâ KOLadd, err äëÿ ïîääåðæêè óíèêîäà è ðàáîòû â 2007\2009 âåðñèè äåëôè
MTsv DN
*14. WinVer - òåïåðü îïðåäåëÿåò Windows7. D[u]fa.
-------------------------------------------------------------------
5.08.09
-------------------------------------------------------------------
Ïåðâàÿ ðåâèçèÿ îñíîâàíà íà 2.88+ =)
îòëè÷èÿ îò 2.88:
+ procedure TControl.TBClear; {* |<#toolbar> Deletes all buttons. Dufa }
+ property TControl.TBButtonLParam[const Idx: Integer]: DWORD read TBGetButtonLParam write TBSetButtonLParam;
{* |<#toolbar> Allows to access/change LParam. Dufa }
+ äîáàâëåí MCKfakeClasses200x.inc äëÿ èñïðàâëåíèÿ ãëþêà ñ ëîæíûìè ÌÑÊ âàðíèíãàìè(â âåðñèÿõ 2006-2009) // Dufa
* DefFont = Tahoma
* procedure TDirList.ScanDirectory èñïðàâëåíà óòå÷êà ïàìÿòè // Dufa
* function TControl.WndProcTransparent èñïðàâëåíî "ñòðàííîå" ïîâåäåíèå ïðèëîæåíèÿ, ïðè êîë-âî ôîðì >= 2 // Galkov
* procedure TControl.SetCurIndex óñòðàíåí AV // Galkov
* visual_xp_styles.inc: function IsManifestFilePresent : boolean; èñïðàâëåíà îøèáêà ïðè ðàáîòå ñ áèáëèîòåêàìè //Dufa
*** âîçìîæíî ÷òî-òî çàáûë.... %)
-------------------------------------------------------------------
23.09.08
-------------------------------------------------------------------
Èçìåíåíî
========
- Øðèôò ïî óìîë÷àíèþ íà Tahoma (äëÿ ïîääåðæêè Unicode). Àâòîð: azsd
- Êîä ôóíêöèè _WStrComp.
- Ðàáîòà ñ ôàéëàìè UTF-8 ñ BOM â TWStrList. Àâòîð: azsd
Èñïðàâëåíî
==========
- Îøèáêè ïðè ïîäêëþ÷åííîé UNICODE_CTRLS:
CrackStack_MapInResource,
CrackStack_MapInFile,
ToRadix,
InsertSeparators,
IndexOfChar. Àâòîð: MTsv DN
- TGraphicTool.SetFontName. Èñïîëüçîâàíèå ôóíêöèè (W)StrLCopy. Àâòîð: azsd
- StrIsStartingFrom. Äëÿ ñëó÷àÿ, êîãäà ëèáî ñòðîêà, ëèáî øàáëîí ðàâåí nil. Àâòîð: azsd
- WStrLoadFromFile. Â ôóíêöèè WideString èñïîëüçîâàëñÿ âûçîâ ANSI ôóíêöèè File2Str. Àâòîð: azsd
- WndProcBitBtn. Îòðèñîâêà Unicode ñèìâîëîâ. Àâòîð: MTsv DN
- WndProcLabelEffect. Îòðèñîâêà Unicode ñèìâîëîâ. Àâòîð: MTsv DN
- TTrayIcon.SetTrayIcon. Íàïîëîâèíó îáðåçàëñÿ òóëòèï ïðè UNICODE_CTRLS. Àâòîð: MTsv DN
- TControl.TBSetTooltips. Ïðè èñïîëüçîâàíèè UNICODE_CTRLS. Àâòîð: azsd
- TBitmap.SetHeight (îáå âåðñèè). Àâòîð: MTsv DN
- Color2RGB (ASM-âåðñèÿ). Àâòîð: Hallif
- Èñïðàâëåíèÿ TLIST_FAST. Àâòîð: Vladimir Kladov è mdw.
- Íåêîððåêòíàÿ ðàáîòà â ñëó÷àå ñ raWord. Àâòîð: =BuckLr=
Äîáàâëåíî
=========
- Ôàéëû: KOL_ansi.inc (â ïðîòèâîâåñ KOL_unicode.inc íàáîð ôóíêöèé è îïðåäåëåíèé ANSI API). Àâòîð: azsd (âîçâðàò ñîâìåñòèìîñòè ñ âåðñèåé D3 D[u]fa, ñ âåðñèåé D2 - Êëàäîâ)
MCKAppExpert200x.pas (âèçàðä äëÿ óäîáíîãî ñîçäàíèÿ ïðîåêòà KOLMCK â Delphi 7, 2005-2009 (â 5 âåðñèè áóäåò ðàáîòàòü ïîñëå íåçíà÷èòåëüíûõ èçìåíåíèé)). Àâòîð: D[u]fa
MirrorKOLPackageD1x.dpk. Ôàéëû ïðîåêòîâ äëÿ Delphi 2005-2009.
MirrorKOLPackageD1x.res. Ôàéëû ðåñóðñîâ äëÿ Delphi 2005-2009.
MirrorKOLPackageD1x.dproj. Ôàéëû ïðîåêòîâ äëÿ Delphi 2007-2009.
- Ïîääåðæêà Delphi 2009 â KOL. Àâòîð: azsd (âîçâðàò ñîâìåñòèìîñòè ñ âåðñèÿìè <= D7 D[u]fa)
- Ïîääåðæêà Unicode äëÿ MCK â Delphi 2009. Àâòîð: MTsv DN
- Ïðîöåäóðà Put äëÿ TWStrList. Àâòîð: azsd
- Ïðîöåäóðà WTextArea äëÿ Canvas. Àâòîð: MTsv DN
- Ïðîöåäóðû:
_aLStrFromPCharLen,
_aLStrFromPChar,
RemoveWStr. Àâòîð: azsd
- Óëó÷øåí êîä ãåíåðàöèè ÌÑÊ äëÿ 200õ âåðñèé. Àâòîð: D[u]fa
Óäàëåíî
=======
- Ôàéëû: delphiusesh.inc (íèãäå íå èñïîëüçîâàëñÿ),
mckAccEditor.inc (êîä áûë ïåðåíåñåí â PAS ôàéë),
mckActionListEditor.inc (êîä áûë ïåðåíåñåí â PAS ôàéë),
mckFileFilterEditor.inc (êîä áûë ïåðåíåñåí â PAS ôàéë),
mckLVColumnsEditor.inc (êîä áûë ïåðåíåñåí â PAS ôàéë),
mckMenuEditor.inc (êîä áûë ïåðåíåñåí â PAS ôàéë),
mckMenuEditorD2.pas (íèãäå íå èñïîëüçîâàëñÿ),
mckMenuEditorD3.pas (íèãäå íå èñïîëüçîâàëñÿ),
mckMenuEditorD4.pas (íèãäå íå èñïîëüçîâàëñÿ),
mckTBEditor.dfm (íèãäå íå èñïîëüçîâàëñÿ),
mckToolbarEditor.inc (êîä áûë ïåðåíåñåí â PAS ôàéë),
mckToolbarEditorD2.pas (íèãäå íå èñïîëüçîâàëñÿ),
mckToolbarEditorD3.pas (íèãäå íå èñïîëüçîâàëñÿ),
mckToolbarEditorD4.pas (íèãäå íå èñïîëüçîâàëñÿ)