Adding a resource to a program with a scrollbox breaks the OnSBScroll event.

Here is a example to demonstrate the problem:




The resource contains the following:




Tested with Win XP, D7, KOL v3.pi and v2.x

Did you do a full rebuild?
Otherwise the resource trick will not work.
It works only for complete builds.
Also, which Delphi version are you using?
There are big differences, specially in recognizing manifest resources.
I did about the same test. No problemos...

В каком месте ломает?

может надо было сделать:

Thanks for the replies guys.

> Did you do a full rebuild?
> Also, which Delphi version are you using?

Yes, I've been doing this for a while now ;-)
The version used was at the bottom of my post - D7.

> Dufa ©   (23.03.11 13:19) [2]

I tried too. The problem is that any caption is incorrect.
The control sends 0 or 1 on mouse down and 0 on mouse up.
-
Download my test files from here: http://files.mail.ru/JUOGA5
It contains compiled builds of both bad and good tests (19kb).

Не могу понять в чём ошибка.. Сделал скриншоты
http://img820.imageshack.us/g/bad0q.jpg/

Even with the download I cannot reproduce it.
It simply works as expected here: win xp sp3,
tried d5,d7 and both unicode and ansi.
btw: why initcommonctrls? it is called by the startup code anyway.

Thanks for testing guys. I found the problem. My system was missing this file:




When you both confirmed that it worked, I went to find another computer to try it.
It worked there so I used Process Explorer to dump the dll usage of the executable.
The difference was that my system was using an older version of the resource:




I copied over the above file from the good system - now problem is gone.

I appreciate your time with the testing.

BTW: does this show that KOL needs a minimum version of comctl32.dll to work correctly?


> btw: why initcommonctrls? it is called by the startup code anyway.


Yes - that was just me troubleshooting. I forgot to remove it.

It even works with fpc 2.5.1 (somewhat - not very much - tweaked kol)

Interested?

If you are reading this Vladimir, don't make any fixes yet, I am being thorough this time. Completely overhauling fpc support.

> Interested?


Indeed! Do you still have my email address?

Just to be sure, send me an email, I'll give you a link to a complete setup that works.

To publish it as a beta is too early, because I am cleaning up FPC derictives and replace them with VER150 or Delphi7AndUp. Then I still have to check what's missing and adapt a few sources, but almost nothing in kol.pas itself.
Basically most of the work is done (replacing"W;" with "A;" in kol_unicode.inc to create a new and more complete version of kol_ansi.inc ;-) ) that kind of stuff.
And yes, the kol sources work for both unicode and ansi.
Since the fpc compiler is more strict, there are only 9 very small patches to be made in kol.pas itself without breaking any delphi version. that is 8 casts for TMsg and one removal of a forward in the interface section. All really small kol bugs that delphi - basically unmerited - ignores.
Only thing is, you will need the windows sources from one of the original delphi versions. I have finished D5 translations (so basically fpc works) but I am translating more current and complete versions of the windows units.
The FPC supplied version is utterly useless with kol.
(Were to lazy to translate pointers into var when applicable)

BTW this also works for 2.4.2/3 but you will get more errors.
The current trunk is even more compatible.
I just discovered another little change:
FPC chokes on POS in unicode mode. Easy fix in the implementation section like this(doesn't cost a byte):

Just after implementation of PosW:

Type
TPos =function(const s1,s2:KolString):integer;
Const
Pos:Tpos = PosW;

This doesn't even break delphi, since posw is both ansi and unicode....

It is most of the time these small things.

BTW 2:

What does the community think?
Should I support older versions of FPC or just 2.4.2 (current stable release) and up?

My vote would be only 2.4.2 and up, since fpc is free anyway.
And for the KOL community there's not much loss in exe size.

It will clean up KOL.pas a lot. (which is a good thing imnsho)

помогите пожалуйста прокрутить ScrollBox колёсиком.

function TForm1.KOLApplet1Message(var Msg: TMsg; var Rslt: Integer): Boolean;
begin
 Result := False;
 if(SB.GetWindowHandle = Msg.hwnd)AND(Msg.message = WM_MOUSEWHEEL)then
 begin
   if Msg.wParam > 32767 then
     SB.Perform( ???