1. Fix for SIP areaI made application for wince 5.0 core and it has SIP area like this.
(http://forum.lazarus.freepascal.org/index.php?action=dlattach;topic=6221.0;attach=21;image)
Open
KOL.pas and goto line number 33,847. (KOL-CE ver 2.80.3)
- or 2.80.2 : Line No. 33,845
- or 2.80.1 : Line No. 33,837
Find code
if CePlatform <> cpSmartphone then begin
and Fix it to
if CePlatform = cpPocketPC then begin
The result is
(http://forum.lazarus.freepascal.org/index.php?action=dlattach;topic=6221.0;attach=23;image)
2. Command bar APIAdd
commctrl in uses.
uses
commctrl;
Create "OnFormCreate" event of
KOLForm and write code.
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
CmdBar: THandle;
MainMenu: HMENU;
begin
Form.CreateWindow;
// Try Command bar
CmdBar := CommandBar_Create(HInstance, Form.Handle, 1000);
CommandBar_AddAdornments(CmdBar, 1, 0); // ? and X Buttons
MainMenu:= CreateMenu();
AppendMenu(MainMenu, MF_STRING, 1, '&File');
AppendMenu(MainMenu, MF_STRING, 2, '&Edit');
CommandBar_InsertMenubarEx(CmdBar, 0, Pointer(MainMenu), 0);
end;
and the result is
(http://forum.lazarus.freepascal.org/index.php?action=dlattach;topic=6221.0;attach=25;image)
Is it goot for you?