- -pv
スレッドの閲覧状況:
現在、- がスレを見ています。
これまでに合計 - 表示されました。
※PC・スマホの表示回数をカウントしてます。
※24時間表示がないスレのPVはリセットされます。

Lazarus と Free Pascal

※ID非表示スレ
1名無しさん@おーぷん:2015/12/09(水)12:38:51 ID:???
Lazarus Homepage
http://www.lazarus-ide.org/

Free Pascal - Advanced open source Pascal compiler for Pascal and Object Pascal - Home Page
http://www.freepascal.org/

>>1-10 その他の情報
644名無しさん@おーぷん :2018/02/22(木)21:00:36 ID:???
こういうのもある

Bring window to the top front accepting user input by code · GitHub
https://gist.github.com/CaptainJH/f8d74747cf352f010df6
645名無しさん@おーぷん :2018/02/22(木)21:17:18 ID:???
[lazarus] Contents of /trunk/ide/ideinstances.pas
https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/ide/ideinstances.pas?view=markup&root=lazarus&sortby=file#l465
428 procedure TIDEInstances.PerformCheck;
で使われている
SetForegroundWindow(xHandleBringToFront);
//SetForegroundWindow works (on Windows) only
//if the calling process is the foreground process, therefore it must be here!
646名無しさん@おーぷん :2018/02/22(木)21:52:53 ID:???
詳しく載ってた

Windowを前面に出す - マイクロソフト系技術情報 Wiki
https://techinfoofmicrosofttech.osscons.jp/index.php?Window%E3%82%92%E5%89%8D%E9%9D%A2%E3%81%AB%E5%87%BA%E3%81%99
647名無しさん@おーぷん :2018/02/22(木)23:50:44 ID:???
Queue はスレッドを止めない

Thread Safety?
http://forum.lazarus-ide.org/index.php/topic,40163.msg277272.html#msg277272
>the difference is that 'Queue' truely pushes methodS to be executed in main thread and returns immediatly
>so the running caller thread doesn't suffer of pauses while 'Synchronize' do a pause inside the caller thread
648名無しさん@おーぷん :2018/02/23(金)18:21:33 ID:???
>>645
でもこれ、実行されない

FStartIDE は True で
xHandleBringToFront は 0
649名無しさん@おーぷん :2018/02/23(金)23:43:37 ID:???
>>634-637

独立したプロジェクトで
TExtendedNotebook TabSheet1 TabSheet2 Memo1 でテストしてみたら
効果あった

設計時にFormのActiveControlを設定していなくても、
ExtendedNotebook.TabStop := False なら
Memo1 がフォーカスを持った状態でフォームが表示される。
650名無しさん@おーぷん :2018/02/25(日)01:28:17 ID:???
Linux+Gtk2 でメニュー出ました

function XTestFakeKeyEvent(dpy: PDisplay; keycode: dword; is_press: Boolean;
 delay: dword): longint; cdecl; external;

procedure SetKeySym(KeySym: TKeySym; KeyDown: Boolean);
var
 Display: PDisplay;
 KeyCode: TKeyCode;
begin
 Display := XOpenDisplay(nil);
 try
  KeyCode := XKeysymToKeycode(Display, KeySym);
  if KeyCode = 0 then
   raise Exception.CreateFmt('KeySym not found(%d)', [Cardinal(KeySym)]);
  XTestFakeKeyEvent(Display, KeyCode, KeyDown, 0);
  XFlush(Display);
 finally
  XCloseDisplay(Display);
 end;
end;

SetKeySym(XK_Alt_L, True);
SetKeySym(XK_F, True);
SetKeySym(XK_F, False);
SetKeySym(XK_Alt_L, False);
651名無しさん@おーぷん :2018/02/25(日)01:31:40 ID:???
LazMouseAndKeyInputパッケージはAltキーが使えない
XK_Alt_L なら大丈夫なのに

https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/components/mouseandkeyinput/xkeyinput.pas?root=lazarus&view=co&content-type=text%2Fplain
VK_MENU: Result := XK_VoidSymbol; // alt key crashes app, XK_Alt_R;
652名無しさん@おーぷん :2018/02/25(日)01:36:46 ID:???
パッケージのインストールと、
{$linklib Xtst}
がいった

Debian -- パッケージ検索結果 -- Xtst
https://packages.debian.org/search?keywords=Xtst&searchon=names&suite=stable&section=all
653名無しさん@おーぷん :2018/02/25(日)01:45:11 ID:???
メニューを持ったフォームがアクティブでないと出なかった

新着レスの表示 | ここまで読んだ

名前: mail:





Lazarus と Free Pascal
CRITEO