Конференция "KOL" » KOL v 3.00 [Delphi, Windows]
 
  • Jon © (09.11.10 17:42) [280]
    Thank you very much Vladimir.
  • Thaddy © (10.11.10 08:01) [281]
    [quote]is there a way to compile KOL on FreePascal?[/quote]
    I am experiencing some problems with freepascal after release 2.2.x That I discoverd yesterday when compiling fpc 2.5.1 from trunk.
    I will investigate this, it might be a bug in the compiler (the size of booleans has changed, it seems). Also, there are some functions commented out in the adapted windows.pas file that should now be included (like FindFileExtW etc).
    I will prepare a new version.
    For now, I suggest you use the version for wince, that also compiles win32 code, but is still based on kol 2.88. The version is stable.
    Since I have a few weeks off, I finally have the time to contribute.
  • thaddy © (10.11.10 16:34) [282]
    Ok,

    Here's a beta version for Freepascal 2.5.1 (trunk, today)
    http://fpc.kolmck.net//kol_for_fpc251.zip (ansi only)

    Backup kol.pas and kolansi.inc and replace with the files in the zip.

    Should compile,

    Please test. DO NOT USE the adapted windows.pas from ppdelphi, it is not necessary, all is in kol_ansi.inc
    Examples included, inccluding a simple batchfile and a special fpc.cfg
  • pingyu (10.11.10 18:00) [283]
    Thanks very much:)
  • thaddy © (10.11.10 21:36) [284]
    one file for fpc whois example was missing. Added and updated archive. (same name)
  • Ken (16.11.10 15:52) [285]
    Hi, I want to set controls name so I define USE_NAMES, but not works.
    I found the USE_NAMES define in mirror.pas has been commented, why is that?
    I need to change control's property base on its name.
  • Thaddy © (16.11.10 22:42) [286]
    You can uncomment it if you want USE_NAMES ;) to work...
    It is not on by default, because your executable will be larger with USE_NAMES defined...
  • Vladimir Kladov © (17.11.10 16:15) [287]
    There are no commented or uncommented defines USE_NAMES in the mirror.pas.
  • Ken (17.11.10 19:28) [288]
    Sorry for not informative.
    I mean the statements like this
    //    SL.Add( '   {$IFDEF USE_NAMES}' );
    //    SL.Add( Prefix + AName + '.Name := ''' + Name + ''';' );
    //    SL.Add( '   {$ENDIF}' );

    Form1_1.inc will be add:
      {$IFDEF USE_NAMES}
       Result.Form.SetName( Applet, 'Form1' ); or Result.pmTray.SetName( Result.Form, 'pmTray' );
      {$ENDIF}

    I made a multi-lang component, will iterate all controls on Form to chane its caption.
    Maybe my mistake, it use property Name not method SetName.
  • Vladimir Kladov © (17.11.10 23:59) [289]
    Property Name is for read only, to set it, SetName is used.
    Adding symbol USE_NAMES to project properties makes Name and SetName available.
    Can you upload or send by email or paste here in a message a simple project to demonstrate what is not working?
  • Ken (18.11.10 10:24) [290]
    When I create a new KOL MCK project, usually it will generate code automatically in Unit1_1.inc:
     {$IFDEF USE_NAMES}
      Result.Form.SetName( Applet, 'Form1' );
     {$ENDIF}

    but not in v3.00, although I can add code in Unit1.pas without problem.
     Form.SetName( Applet, 'Form1' );
  • Vladimir Kladov © (18.11.10 15:51) [291]
    Now understand. Just set TKOLForm.GenerateNames to true. In 3.00, I made so to provide more clear code in inc files.
  • Ken (18.11.10 20:17) [292]
    It working, thank you.
  • Ken (29.11.10 23:11) [293]
    Hi, I found use UNICODE_CTRLS, the EditBox will not trigger OnChar event, but recompile without UNICODE_CTRLS then works fine.
  • Dufa © (30.11.10 10:54) [294]
    Try OnKOLCha
  • Jon © (30.11.10 12:37) [295]

    > Hi, I found use UNICODE_CTRLS, the EditBox will not trigger OnChar event,
    > but recompile without UNICODE_CTRLS then works fine.


    Confirmed - the event does not trigger with UNICODE_CTRLS (KOL VERSION 3.00.Z6):


    program Test;

    uses
     Windows, KOL;

    procedure EditboxChar(Dummy: Pointer; Sender: PControl; var Key: KOLChar; Shift: DWORD);
    begin
     Applet.Caption := Sender.Caption;
    end;

    begin
     Applet := NewForm(nil, '');
     with NewEditbox(Applet, [])^ do
       OnKeyChar := TOnChar(MakeMethod(nil, @EditboxChar));
     Run(Applet);
    end.

  • Vladimir Kladov © (30.11.10 19:46) [296]
    KOL 3.00 Z7 на сайте. Но KEY_PREVIEW работать все равно не будет при UNICODE_CTRLS.
  • MTsv DN (01.12.10 09:03) [297]
    Строка 34786, заменить:
    if assigned( Self_.EV.fOnChar ) then


    на
    if assigned( Sender.EV.fOnChar ) then

  • Vladimir Kladov © (03.12.10 14:31) [298]
    3.00.Z8 положил. Плюс исправление для TBitmap.RLESaveToStream / pf4bit. Внимание: исправляет некорректность в MCK (нужен ребилд пакета).
  • Vladimir Kladov © (06.12.10 16:56) [299]
    3.00.Z9. Небольшие поправки в DoFileOp, KOLDirDlgEx (koladd) и еще парочка.
 
Конференция "KOL" » KOL v 3.00 [Delphi, Windows]
Есть новые Нет новых   [120345   +11][b:0.001][p:0.001]