KOL-CE - compact applications for WinCE

[Leledumbo]

but my EXE is still about 1MB... what am i missing??

AFAIK -Xs doesn't work quite well. I always recompile EVERYTHING (rtl, fcl, lcl, etc) without -gl, turns on smartlinking, and optimize the code (make smart STRIP=1 OPTIMIZE=1, the drawback is I can't quickly find out a problem if there's a bug).

[oraitecamonyes]

Q1 - im having problems putting an image in a KOL project form... when i try to use Timage i get compilation errors... is it possible to use other VCLs appart from KOL ones?

Q2 - Filecopy / copyfile doenst work. The reply is TRUE but the file isnt coppied !? how can i make it work?

Q3 - I want my memo to focus on the last line and this doesnt work (sendmessage(Memo1.Handle,WM_VSCROLL,SB_BOTTOM,0). How can i do it?

thank you guys!

[JohnvdWaeter]

In plain Delphi: screen.cursor:=crHourGlass;

Howto set cursor in KOL-CE? I tried assigning a lot of different values to variabele screencursor, but the rotating windows screencursor never appears... can it be done using KOL-CE?

tia John

[yuriy_sydorov]

User the following code to get wait cursor:

Code: [Select]

ScreenCursor:=LoadCursor(0, IDC_WAIT);
SetCursor(ScreenCursor);

and back to normal cursor:

Code: [Select]

ScreenCursor:=0;
SetCursor(LoadCursor(0, IDC_ARROW));

[JohnvdWaeter]

Hi Yury, thanks for the cursor-code. I'll try that out. In the mean-time:

It happens a couple of times during a session.

Doubleclick on a button jumps to the eventhandler in the sourcecode. Same thing for menus, events etc.

Usually it works, a nice frame is written and I can type the code. If code is already there, cursor jumps to code.

But every now and then I get an error when doubleclick an event (on the button itself or in the objectinspector), that says (in the messages pane):

Code: [Select]


C:\lazarus\fpc\2.2.0\source\rtl\arm\arm.inc(294,36) Error: : expected, but name found


And the caret jumps to the file arm.inc (which I had NOT open, but now is opened) and points to line 294:

Code: [Select]


 var
  fpc_system_lock: longint; export name 'fpc_system_lock';


If I just stop Lazarus, save changes Yes, and restart, all works fine again...

John

[JohnvdWaeter]

Code below doesn't set Penwidth, no matter what I set it. Reading it back always shows Penwidth = 0

Code: [Select]


 with abitmap.Canvas^ do
   begin
    pen.color := clRed;
    pen^.Penwidth := 4;

    moveto(StartX,StartY);
    lineTo(Mouse.X,Mouse.Y);
   end;


How to set Penwidth?

John

[felipemdc]

Doubleclick on a button jumps to the eventhandler in the sourcecode. Same thing for menus, events etc.
.....

Please report IDE bugs on the bug tracker. No one will pay attention to them on the forum.

[JohnvdWaeter]

Doubleclick on a button jumps to the eventhandler in the sourcecode. Same thing for menus, events etc.
.....

Please report IDE bugs on the bug tracker. No one will pay attention to them on the forum.

I would if I could make a case to reproduce the bug. And I somehow was under the impression that it had to do with KOL-CE.

[yuriy_sydorov]

I fixed pen width problem.

Lazarus CodeTools do not handle this code:

Code: [Select]

var
  fpc_system_lock: longint; export name 'fpc_system_lock';
Please post bug report about it.

[Chainfire]

I may be completely overlooking this, but how do I use Unicode text with KOL components ?

[yuriy_sydorov]

KOL-CE uses KOLString type for strings. KOLString = widestring on wince.

[Chainfire]

I see. I had set this manually by now by defining UNICODE, but if you say that is not needed

Another question you may know the answer to: what is a good unicode font to use? I am specifically looking for one that supports CJK characters, seems "Arial Unicode MS" is not available on WinCE.

[JohnvdWaeter]

Hi Yury,

At runtime I like to change some captions of KOL-objects.
Most work fine, however:

  TabControl1_Tab1.Caption:='test';

gives Access Violation


Is this a bug or is there another way to change the caption of a tabsheet at runtime?

tia!
John

[yuriy_sydorov]

Try this:

Code: [Select]

TabControl1.TC_Pages[0].Caption:='test';

[Chainfire]

Yuri,

I'm having strange problems with freeing objects, I get AV's.

Here's some code ($mode delphi):

Code: [Select]


var List: TStrList;
begin
  List := RegEnum(OptionsKeyBase + '\Profiles')^;
  // RegEnum returns PStrList
  try
    if List.Count > 0 then
    for i := 0 to List.Count - 1 do begin
      S := List.Items[i];
      while (Pos('\', S) > 0) do
        S := Copy(S, Pos('\', S) + 1, Length(S));
       
      if S <> DefaultProfileName then begin
        with AddProfile do begin
          Name := S;
          LoadFromRegistry;
        end;
      end else begin
        Profile[DefaultProfile].LoadFromRegistry;
      end;
    end;
  finally
    List.Free; // <---- AV HERE
  end;    
end;      


Ofcourse I have also tried with removing the code between try/finally. Seems it happens as soon as List has a string inside. Stack trace:

Code: [Select]


An unhandled exception occurred at $03F700BC :
EAccessViolation : Access violation
  $03F700BC
  $00011B80  fpc_help_destructor,  line 423 of C:/lazarus/source/fpcbuild/2.1/fpcsrc/rtl/inc/generic.inc
  $0001F574  TOBJ__REFDEC,  line 14517 of E:/SoftDev/kol-ce-2.80/kol/KOL.PAS
  $00029DB8  TWMWROPTIONS__LOADFROMREGISTRY,  line 539 of cwmwroptions.pas
  $00027590  TFORM1__KOLFORM1FORMCREATE,  line 99 of unit1.pas
  $0002743C  NEWFORM1,  line 63 of unit1_1.inc
  $0001165C  main,  line 10 of skeleton.lpr


This is not the only place it happens either, I get it when freeing other lists as well (TList). Cannot determine what causes it, but I can't get the error to disappear either. It works if I comment out the "List.Free", but then I won't be freeing memory.

Any help, advice, etc ?