diff options
Diffstat (limited to 'src/corelib/gdi')
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 6 | ||||
| -rw-r--r-- | src/corelib/gdi/fpgui_toolkit.lpk | 17 |
2 files changed, 12 insertions, 11 deletions
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index fd6aa6d6..e9ef18e6 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Library - Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2009 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -487,6 +487,7 @@ var mcode: integer; wmsg: TMsg; PaintStruct: TPaintStruct; + TmpW: widestring; //------------ procedure SetMinMaxInfo(var MinMaxInfo: TMINMAXINFO); @@ -621,7 +622,8 @@ begin fpgSendMessage(nil, w, FPGM_KEYRELEASE, msgp) else if uMsg = WM_CHAR then begin - msgp.keyboard.keychar := UTF8Encode(WideChar(wParam)); + tmpW := WideChar(wParam); + msgp.keyboard.keychar := UTF8Encode(tmpW); fpgSendMessage(nil, w, FPGM_KEYCHAR, msgp); end; diff --git a/src/corelib/gdi/fpgui_toolkit.lpk b/src/corelib/gdi/fpgui_toolkit.lpk index 265e3292..2d2212d7 100644 --- a/src/corelib/gdi/fpgui_toolkit.lpk +++ b/src/corelib/gdi/fpgui_toolkit.lpk @@ -311,14 +311,14 @@ <Item71>
<Filename Value="..\fpg_extgraphics.pas"/>
<UnitName Value="fpg_extgraphics"/>
- </Item71> - <Item72> - <Filename Value="..\..\gui\fpg_colormapping.pas"/> - <UnitName Value="fpg_ColorMapping"/> - </Item72> - <Item73> - <Filename Value="..\..\gui\fpg_colorwheel.pas"/> - <UnitName Value="fpg_ColorWheel"/> + </Item71>
+ <Item72>
+ <Filename Value="..\..\gui\fpg_colormapping.pas"/>
+ <UnitName Value="fpg_ColorMapping"/>
+ </Item72>
+ <Item73>
+ <Filename Value="..\..\gui\fpg_colorwheel.pas"/>
+ <UnitName Value="fpg_ColorWheel"/>
</Item73>
</Files>
<LazDoc Paths="..\..\..\docs\xml\corelib\;..\..\..\docs\xml\corelib\x11\;..\..\..\docs\xml\corelib\gdi\;..\..\..\docs\xml\gui\"/>
@@ -333,7 +333,6 @@ </UsageOptions>
<PublishOptions>
<Version Value="2"/>
- <DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
|