[Lazarus] RedrawMenus function in winceproc.pp - WinCE problem ?
Dimitrios Chr. Ioannidis
dioannidis at artesoft.gr
Thu Sep 11 22:09:00 CEST 2008
Felipe Monteiro de Carvalho wrote:
> On Thu, Sep 11, 2008 at 2:58 PM, Dimitrios Chr. Ioannidis
> <dioannidis at artesoft.gr> wrote:
>
>> It works. Thx ... Now i can help you more providing you with debug
>> output info's like this, where i'm trying to see why ApplicationType
>> isn't set correctly in my device :
>>
>
> Why do you think it isn't set correctly? What is it set to? What were
> you expecting?
>
Well, i was expecting that the ApplicationType variable to be set to
atPDA or to atHandheld regarding the device that is running. At least
this was my assuption reading the code below :
( winceobject.inc )
...
128: { Initializes the application type }
129: if Application.ApplicationType = atDefault then
130: Application.ApplicationType := GetWinCEPlatform;
...
but then when i trace the GetWinCEPlatform call i find that it ends in (
intfbasewinapi.inc )
function TWidgetSet.SystemParametersInfo(uiAction: DWord; uiParam:
DWord; pvParam: Pointer; fWinIni: DWord): LongBool;
begin
case uiAction of
SPI_GETWHEELSCROLLLINES: PDword(pvPAram)^ := 3; // default value
else
Result := False;
end
end;
which does nothing. If i'm not mistaken the implementation code to auto
determine the device type and set the applicationtype variable
accordingly is missing.
Maybe i'm wrong, i'm just started to learn LCL.
regards,
--
Dimitrios Chr. Ioannidis
More information about the Lazarus
mailing list