mieki256's diary

フォームの OnKeyDownイベント等で、キーの判定をしたい。VK_xxx という指定をするらしいけど…。VK_F11 とか VK_ESCAPE とかそんな感じ。

uses に LCLType を追加すれば使えるようになる。

_LCL Key Handling - Lazarus wiki
_virtual keyboard strokes/de - Free Pascal wiki

ただ、フォームの上にボタン等を置いてしまうと、フォーム側の OnKeyDownイベントでキーの押し下げを取得できなくなる…。プロパティの KeyPreview を True にしてやれば取得できるようになる。

F11キーを押したらフルスクリーン表示と通常表示が切り替わる処理を入れたい。

Lazarus 4.4 で作ったアプリなら、フォームの OnKeyDownイベント発生時に Key = VK_F11 の判定をすれば済んだのだけど、Delphi 12 で同じことをしてみたら、フォーム上のボタンをクリックした後は F11キーが効かなくなった。

この場合は ActionList(TActionList)を使ったほうが簡単で確実かもしれない…。ActionListを使うようにしてみたら、ボタンを押した後もF11キーが効いてくれた。

Delphi での ActionList の使い方は以下。

1. フォーム上に TActionList を貼り付け。
2. TActionList をダブルクリック。
3. ActionList の設定ダイアログが表示されるので、新規で Action を作成。
4. 作成した Action の、プロパティの ShortCut に使いたいキーを割り当て。
5. イベントの OnExecute をダブルクリックしてプロシージャを作成して、処理を記述する。

Lazarus でも Delphi と同様に ActionList を使ってみたら、F11キーが効いてくれた。

LazarusでOpenGLが使えるらしい。

_OpenGL Tutorial - Free Pascal wiki

とりあえず、上記ページの最初のサンプルだけでも動かしてみた。

1. 新規プロジェクト → アプリケーション、で作成。
2. プロジェクト → プロジェクトインスペクタ。
3. 追加ボタンをクリックして、「新規の要求」を選ぶ。
4. lazopenglcontext を選んで追加する。

これで、uses に、OpenGLContext と gl を記述できるようになった。また、サンプルでは、uses に FileUtil も記述されているので一応記述。

サンプルをコピペしてビルドしてみた。フツーに動いた。ウインドウ内にグラデーションがかかった三角形が描画されている。

以下のような記述でも、フルスクリーン表示と通常表示の切り替えができることを確認できた。

{ フルスクリーン表示と通常表示の切り替え }
procedure TForm1.SwitchFullscreen;
begin
  if BorderStyle <> bsNone then
  begin
    // フルスクリーン表示にする
    FOrigBounds := BoundsRect;
    BorderStyle := bsNone;
    WindowState := wsFullScreen;
    FormStyle := fsStayOnTop;
  end
  else
  begin
    // 通常表示にする
    BorderStyle := bsSizeable;
    WindowState := wsNormal;
    BoundsRect := FOrigBounds;
  end;

  if BorderStyle = bsNone then
    ButtonChgFullScr.Caption := 'Normal'
  else
    ButtonChgFullScr.Caption := 'Fullscreen';
end;

以下のページで色々な方法が紹介されてる。今回試したのは一番最初に紹介されてるやり方。

_Application full screen mode - Free Pascal wiki

• BorderStyle に bsNone を指定しないと、タスクバーまで隠した状態のフルスクリーン表示にならない。
• Delphi は WindowState に TWindowState.wsMaximized を指定するけれど、Lazarus の場合は wsFullScreen を指定できる。