Консольная графика. Ошибка в Crt

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем mrnuke, 20 май 2009.

  1. mrnuke

    mrnuke Гость

    Нужен модуль crt для дельфи! Уж какие только варианты не находил, везде одно и тоже!

    Выдает ошибку на функции

    Код (Text):
    function KeyPressed: Boolean;
    var
    NumberOfEvents: DWORD;
    NumRead: DWORD;
    InputRec: TInputRecord;
    Pressed: boolean;
    begin
    Pressed := False;
    GetNumberOfConsoleInputEvents(hConsoleInput, NumberOfEvents);
    if NumberOfEvents > 0 then
    begin
    if PeekConsoleInput(hConsoleInput, InputRec, 1,NumRead) then
    begin
    if (InputRec.EventType = KEY_EVENT) and
    (InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then
    begin
    Pressed := True;
    {$IfDef MOUSE_IS_USED}
    MouseButtonPressed := False;
    {$EndIf}
    end
    else
    begin
    {$IfDef MOUSE_IS_USED}
    if (InputRec.EventType = _MOUSE_EVENT) then
    begin
    with InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.MouseEvent do
    begin
    MousePosX := dwMousePosition.X;
    MousePosY := dwMousePosition.Y;
    if dwButtonState = FROM_LEFT_1ST_BUTTON_PRESSED then
    begin
    MouseEventTime := Now;
    MouseButtonPressed := True;
    {If (dwEventFlags AND DOUBLE_CLICK)<>0 Then Begin}
    {End;}
    end;
    end;
    end;
    ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
    {$Else}
    ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
    {$EndIf}
    end;
    end;
    end;
    Result := Pressed;
    end;
    А именно на строке

    Код (Text):
    (InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then
    пишет undeclared identifier 'KeyEvent'

    Помогите люди добрые!!
     
Загрузка...
Похожие Темы - Консольная графика Ошибка
  1. Lers
    Ответов:
    0
    Просмотров:
    1.648
  2. 203
    Ответов:
    2
    Просмотров:
    1.490

Поделиться этой страницей