Originally Posted by
Carver413
I like Being able to use a single case statement for keyboard or mouse input but I don't believe that is possible with VKs
Code:
case vMessage.Input.CombineButton of
CK_CONTROL or CK_MOUSE1 :begin
end;
CK_CONTROL or CK_Alt or CK_MOUSE1:begin
end;
CK_MOUSE2 :begin
end;
end;
Code:
case vMessage.Input.CombineKey of
CK_Alt or CK_S :begin
end;
CK_Shift or CK_S :begin
end;
end;
also BGRABitmap is one of those reinvented wheels that you so greatly discourage. and kind of a bulky solution just to get a texture into video memory
You can definitely use VKs with case statements. Not sure why you would think otherwise.
Code:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
VK_UP:
ShowMessage('Up!');
VK_DOWN:
ShowMessage('Down!');
VK_LEFT:
ShowMessage('Left!');
VK_RIGHT:
ShowMessage('Right!');
end;
end;
Also BGRABitmap is not what I would call a "reinvented wheel", nor is it a game engine. It's also written by someone who actually knows what they're doing! I'd much rather use it and be able to handle all major image formats in a single short method than have to write my own thousand-plus line unit with a separate BMP loading routine, PNG loading routine, TGA loading routine, e.t.c.
Bookmarks