Decimal point

Article View: borland.public.cppbuilder.nativeapi

Article #14050

Back to borland.public.cppbuilder.nativeapi Previous Next

#14050

From: George
Date: Sun, 07 Sep 2003 10:42

27 lines
1487 bytes

Is there a way to change the decimal point (.) on the numeric keypad to a
comma (,) on the application level? I found a post of delphi code but I was
unable to translate it:

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);

begin

case Msg.Message of

WM_KEYDOWN, WM_KEYUP:

if (Msg.wparam = VK_DECIMAL) and (Odd(GetKeyState(VK_NUMLOCK))) then

begin

Msg.wparam := 190; { for point, use 188 for comma }

Msg.lparam := MakeLParam(LoWord(msg.lparam), (HiWord(Msg.lparam)

and $FE00) + MapVirtualKey(Msg.wparam, 0));

end;

end;

end;

Technical Details

Message-ID: <3f5b0bb5$1@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!newsfeed.news2me.com!canoe.uoregon.edu!logbridge.uoregon.edu!nntp-relay.ihug.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10cc67,4290b421284ec184,start
X-Google-Attributes: gid10cc67,public
X-Google-ArrivalTime: 2003-09-07 03:46:45 PST
From: "George" <george@nospam.org>
Newsgroups: borland.public.cppbuilder.nativeapi
Subject: Decimal point
Date: Sun, 7 Sep 2003 13:42:19 +0300
Lines: 29
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
NNTP-Posting-Host: 62.103.220.43
Message-ID: <3f5b0bb5$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1062931381 62.103.220.43 (7 Sep 2003 03:43:01 -0700)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!newsfeed.news2me.com!canoe.uoregon.edu!logbridge.uoregon.edu!nntp-relay.ihug.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail