[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;
  case uiAction of
    SPI_GETWHEELSCROLLLINES: PDword(pvPAram)^ := 3; // default value
    Result := False;

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.


Dimitrios Chr. Ioannidis

More information about the Lazarus mailing list