Re: Decimal point

Article View: borland.public.cppbuilder.nativeapi

Article #14051

Back to borland.public.cppbuilder.nativeapi Previous Next

#14051

From: Remy Lebeau (TeamB)
Date: Sun, 07 Sep 2003 10:53

30 lines
1799 bytes

"George" <george@nospam.org> wrote in message
news:3f5b0bb5$1@newsgroups.borland.com...
> I found a post of delphi code but I was unable to translate it:

    void __fastcall TForm1::AppOnMessage(MSG &Msg, bool &Handled)
    {
        switch( Msg.message )
        {
            case WM_KEYDOWN:
            case WM_KEYUP:
                if( (Msg.wParam == VK_DECIMAL) && (GetKeyState(VK_NUMLOCK) &
0x0001) )
                {
                    Msg.wParam = 190; /* for point, use 188 for comma */
                    Msg.lParam = MAKELPARAM(LOWORD(msg.lParam),
(HIWORD(Msg.lParam)
& 0xFE00) + MapVirtualKey(Msg.wParam, 0));
                }
        }
    }


Gambit


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.515 / Virus Database: 313 - Release Date: 9/1/03

Technical Details

Message-ID: <3f5b0e01$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-05!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.wirehub.nl!news.kweb.on.ca!KWeb!newsgroups.borland.com!not-for-mail

References: <3f5b0bb5$1@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10cc67,4290b421284ec184
X-Google-Attributes: gid10cc67,public
X-Google-ArrivalTime: 2003-09-07 03:56:11 PST
From: "Remy Lebeau \(TeamB\)" <gambit47@yahoo.com>
Newsgroups: borland.public.cppbuilder.nativeapi
References: <3f5b0bb5$1@newsgroups.borland.com>
Subject: Re: Decimal point
Date: Sun, 7 Sep 2003 03:53:20 -0700
Lines: 32
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: 207.175.226.26
Message-ID: <3f5b0e01$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1062931969 207.175.226.26 (7 Sep 2003 03:52:49 -0700)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-05!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.wirehub.nl!news.kweb.on.ca!KWeb!newsgroups.borland.com!not-for-mail

Reply to Parent Message