Xi Controls / MessgDls Ported

[wladiz2001]

Greetings

Recently, I have ported the library of components called "Xi Controls" containing XiButton, XiPanel, XiProgressBar And XiTrackBar and messages "MessDlg" as far as I was able to test, they work well. Can anyone confirm this?

And Where can I publish for use by other programmers?

[Timewarp]

I've also done this, using it in my Delphi apps.

Crossplatform is doable, only thing doesn't compile is msdlgs, it uses "LoadIcon" from winapi (Works in linux if remove that (tested 1 year ago), without icons ofcourse)

Maybe Lazarus ccr?

[wladiz2001]

I have reviewed the unit Graphics.pp and LoadIcon is:

function LoadIcon(hInstance: THandle; lpIconName: PChar): HIcon;
var
  Ico: TIcon;
begin
  Ico := TIcon.Create;
  try
    if PtrUInt(lpIconName) > High(Word)
    then Ico.LoadFromResourceName(hInstance, lpIconName)
    else Ico.LoadFromResourceID(hInstance, PtrInt(lpIconName));
    Result := Ico.ReleaseHandle;
  finally
    Ico.Free;
  end;
end;

the function LoadIcon is no longer dependent the Windows API
(the icons are new and included in a res file) ...


Another thing, is there any website where I can post the ported components?, To avoid double work

[mica]

CCR

http://wiki.freepascal.org/Using_the_Lazarus-ccr_SVN_repository

[Timewarp]

Attached my / combined version. Some bugs were also fixed.

Usage: Just install lazxicontrols package (in Delphi install xicontrols.pas to new package)

When tested in Linux, icons did not show up, don't know why (Loading from resource worked in Windows, when tested)  Resource is not used/needed in Windows.

Btw, loadicon is no longer in graphics, it was moved to LCLIntf.

[wladiz2001]

I made some changes, include and convert resources into lazresources and write a LoadLazIcon function, delete all windows (unit references), change to {$mode objfpc} in all units, I think I should work in Linux too

If someone can test it ... thanks

PD. I like the name lazXiControls then I use it for the package
PD. I would like to mantain this controls and others that I'm writing. How I request access to Lazarus ccr?