Anda tahu kotak-kotak Windows di mana Anda hanya bisa melakukan satu hal?

Mari kita bawa ini ke level selanjutnya!

Tantangan

Buat kotak dialog dengan tombol yang mengikuti kursor Anda di mana-mana!

Spesifikasi

Tidak ada input yang dapat diambil. Mungkin ada output untuk STDOUT atau STDERR. Anda harus membuka jendela dengan satu tombol (tidak perlu teks, tetapi teks dapat dimuat dalam judul jendela, kotak dialog, atau tombol). Tombol harus dapat diklik, dan itu harus selalu mengikuti di bawah kursor Anda sehingga Anda hanya dapat mengkliknya. Setelah mengklik, itu dapat melakukan apa pun yang Anda inginkan, tapi tolong jangan membuatnya crash komputer karena saya akan menguji ini ... Kotak dialog harus tetap terbuka selama tombol tidak ditekan, tetapi tidak perlu tutup ketika tombol ditutup.

Asumsi yang bisa Anda buat

• Anda dapat mengasumsikan bahwa kursor akan tetap berada di dalam kanvas gambar.
• Anda mungkin berasumsi bahwa jendela akan tetap fokus, tetapi Anda tidak boleh meletakkan jendela tidak fokus selama tombol tidak ditekan.

Contoh Pseudocode

Inilah beberapa contoh pseudocode:

Open Dialog Box
Add Button to Dialog Box at position X, Y
WHILE True:
    SET Dialog Box to CursorX - X, CursorY - Y

Uji Kasus tidak dapat disediakan untuk tantangan ini

Ini adalah tantangan kode-golf, sehingga pengiriman terpendek yang sah hingga 14 Maret (Hari Pi) menang!

MATLAB, 86 63 byte

set(warndlg,'WindowButtonM',@(s,e)movegui(get(0,'Po')-[99,20]))

Solusi ini memanfaatkan kemampuan MATLAB (biasanya menjengkelkan) untuk menggunakan sebagian nama properti selama bagian yang disediakan hanya unik untuk properti yang diminati.

Solusi ini menggunakan bawaan warndlguntuk membuat dialog peringatan dengan tombol "OK". Fungsi ini mengembalikan figurepegangan yang kemudian dapat kita gunakan untuk mengatur WindowButtonMotionFcnpanggilan balik (menggunakan nama pendek 'WindowButtonM').

Callback yang dievaluasi setiap kali kursor dipindahkan dalam jendela mendapatkan posisi kursor saat ini (menggunakan PointerLocationproperti objek grafik root , menggunakan nama pendeknya 'Po'). Kami kemudian memperbarui Positiongambar menggunakan moveguidan menentukan lokasi baru dari gambar setelah menerapkan offset[99, 20] sehingga kursor ditempatkan pada tombol.

Ketika tombol akhirnya diklik, angka itu dihapus dan semua panggilan balik secara otomatis dilepaskan.

C # (Aplikasi Formulir Windows), 200 114 byte

void F(){var p=Cursor.Position;MouseMove+=(r,t)=>{Controls.Add(new Button());Location=new Point(p.X-30,p.Y-40);};}

Tidak Golf

void F()
{
     Controls.Add(new Button());

     MouseMove += (r, t) =>
     {
        var p = Cursor.Position;
        Location = new Point(p.X - 30, p.Y - 40);
     };
}

Solusi 200 byte lama:

public void F(){var t=this;var b=new Button();b.Click+=delegate{t.Close();};t.Controls.Add(b);t.Show();for(;;){Application.DoEvents();t.Location=new Point(Cursor.Position.X-30,Cursor.Position.Y-40);}}

Tidak Golf

    public void F()
    {
        var t = this;
        var b = new Button();

        b.Click += delegate
        {
            t.Close();
        };

        t.Controls.Add(b);
        t.Show();

        for (;;)
        {
            Application.DoEvents();
            t.Location = new Point(Cursor.Position.X - 30, Cursor.Position.Y - 40);
        }
    }

AutoHotkey, 122 115 byte

MsgBox
WinWait,%A_ScriptName%
Loop{
MouseGetPos,x,y
WinGetPos,a,b
ControlGetPos,c,d,,,Button1
WinMove,x+a-c,y+b-d
}

Java 7, 294 289 286 264 220 byte

import java.awt.*;public class B extends java.applet.Applet{Button b;public B(){add(b=new Button());}public void paint(Graphics g){Point p=MouseInfo.getPointerInfo().getLocation();b.setLocation(p.x-9,p.y-65);repaint();}}

-22 byte berkat MouseInfo (dicuri dari Zavada ) Saya tidak suka perpustakaan awt>.>

Saya mencukur 44 byte dengan menghapus metode utama di sini. Metode utama tidak diperlukan jika ini diluncurkan sebagai applet. Ini dapat dicapai melalui eclipse's "Run As Java Applet" atau dengan menonaktifkan manajer keamanan dan menggunakan appletviewer , yang datang dengan JDK (kecuali Anda masih dapat melihat applet di browser web. Saya tidak berpikir chrome mengizinkan ini) .

Jawa, 172 199 235 Bytes

Golf:

import java.awt.*;interface D{static void main(String[]z){new javax.swing.JDialog(){{setSize(9,99);setVisible(1>0);add(new Button());a();}void a(){for(Point p;;p=MouseInfo.getPointerInfo().getLocation(),setLocation(p.x-9,p.y-70));}};}}

Tidak Disatukan:

import java.awt.*;
interface D{
    static void main(String[]z){
        new javax.swing.JDialog(){
            {
                setSize(9,99);
                setVisible(1>0);
                add(new Button());
                a();
            }
            void a(){

                for(;;) {
                    Point p = MouseInfo.getPointerInfo().getLocation();
                    setLocation(p.x-9,p.y-70);
                }
            }
        };

    }
}

Penjelasan: Saya menggunakan inisialisasi penjepit ganda pada deklarasi JDialog baru saya. Ini menyimpan byte dengan mengecualikan ekstensi JDialog (memungkinkan saya untuk menyimpan byte yang tidak termasuk publicdari main). Di dalam subkelas anonim JDialog, saya membuatnya terlihat (menggunakan 1>0alih-alih true) dan menelepona() , yang diperlukan karena initalizer memiliki kesalahan waktu kompilasi jika loop duduk di dalamnya secara normal. Saya memilih untuk menggunakan MouseInfo daripada semua kode berlebih yang terkait dengan menambahkan pendengar mouse.

Sunting: Harus menambah jumlah sebanyak 27 untuk ditambahkan add(new java.awt.Button()); . Saya pikir JDialogs memiliki tombol tersirat oleh teknis, tetapi saya tampaknya salah.

Sunting 2: Harus menambah setSizedan mengimbangi lokasi mouse untuk membuat tombol dapat diklik.

Modifikasi Pemrosesan Js 102 108 byte

draw=function(){background(0);rect(mouseX,mouseY,9,9);rect(mouseX,mouseY,4,4);if(mouseIsPressed){fill(9);}};

Cobalah online! Baru saja memperbarui tautan saya!

Itu hanya menggambar persegi panjang yang mengikuti mouse Anda dan persegi panjang yang lebih kecil di dalamnya yang Anda klik dan berubah menjadi merah. Ini bekerja tetapi tidak luar biasa. Versi ini jika sangat ketat pada kawat gigi dan semua itu :(

Clojure, 525 byte

(ns d(:require[quil.core :as q][quil.middleware :as m]))(def w 500)(def h 200)(def t 30)(def n 200)(def m 100)(q/defsketch d :size[999 999]:setup(fn[](q/stroke 0 0 0)(q/text-font(q/create-font""(* t 1.3))){:x 0 :y 0}):draw(fn[{x :x y :y}](let[r q/rect f q/fill o(- x(/ w 2))p(- y (/ h 2))](q/background 99 99 99)(f 0 0 255)(r o p w h)(f 200 200 200)(r o(+ p t)w(- h t))(f 255 0 0)(r(-(+ o w)t)p t t)(f 255 255 255)(q/text"X"(- (+ o w) t)(+ p t))(r(- x(/ n 2))(- y (/ m 2))n m))):mouse-moved(fn[_ e]e):middleware[m/fun-mode])

Apakah tidak membuat dialog Windows asli. Sebaliknya, itu membangun yang palsu, dan menciptakan tombol dummy (tidak berfungsi) di tengah.

Ini diizinkan oleh OP dalam komentar.

Menggunakan perpustakaan Quil .

(ns bits.golf.following-dialog
  (:require [quil.core :as q]
            [quil.middleware :as m]))

(def width 500)
(def height 200)

(def top-bar-height 30)

(def b-width 200)
(def b-height 100)

(defn -main []
  (q/defsketch d
    :size [999 999]
    :setup (fn []
             ; Set the border color
             (q/stroke 0 0 0)

             ; Set the font size
             (q/text-font (q/create-font "" (* top-bar-height 1.3)))

             ; The initial state
             {:x 0 :y 0})

    :draw (fn [{x :x y :y}]
            (let [r q/rect ; Shortcut functions for brevity
                  f q/fill

                  ; The top-left coordinates of the window
                  window-x  (- x (/ width 2))
                  window-y (- y (/ height 2))]

              ; Wipe the previous screen
              (q/background 99 99 99)

              ; Blue top bar
              (f 0 0 255)
              (r window-x
                 window-y
                 width height)

              ; Grey window background
              (f 200 200 200)
              (r window-x
                 (+ window-y top-bar-height)
                 width (- height top-bar-height))

              ; Red top right "button"
              (f 255 0 0)
              (r (- (+ window-x width)
                    top-bar-height)
                 window-y
                 top-bar-height top-bar-height)

              ; The X
              (f 255 255 255)
              (q/text "X" (- (+ window-x width) top-bar-height)
                          (+ window-y top-bar-height))

              ; The main "button"
              (r (- x (/ b-width 2))
                 (- y (/ b-height 2))
                 b-width
                 b-height)))

    ; When the mouse is moved, set the current state to the event object, which
    ;  conveniently has :x and :y properties
    :mouse-moved (fn [_ e] e)

    ; Needed for ease of state management. May try to factor out.
    :middleware [m/fun-mode]))

Pug / Slim + CSS / SCSS / KURANG / Stylus + ES6 Javascript (98 Bytes)

Cobalah online!

Pug (10 UTF-8 Bytes)

button#a X

Stylus (18 UTF-8 Bytes)

#a{position:fixed}

JS (70 UTF-8 Bytes)

onmousemove=e=>{with(a.style){top=e.clientY+'px';left=e.clientX+'px'}}

Didekompilasi, Tidak Disatukan, dan dijelaskan Cuplikan:

document.addEventListener('mousemove', function(e) {
  // Get element with an id of "id"
  var el = document.getElementById("id");
  // Set the vertical position
  el.style.top = e.clientY + 'px';
  // Set the horizontal position
  el.style.left = e.clientX + 'px';
})

/* Get element with an id of "id" */

#id {
  /* Position it relative to the viewport*/
  position: fixed;
}

<!-- A basic HTML button with an ID of "id" -->
<button id='id'>
  X
</button>

Mathematica 226 Bytes

Posisi mouse relatif terhadap layar dilacak oleh ujung depan dan posisi jendela notebook dialog dipindahkan setiap kali mouse bergerak. Cukup sederhana, tetapi perintahnya sangat panjang dalam hal huruf, seperti yang sering terjadi dengan Mathematica. Mengklik OK akan menutup dialog.

{s,d,w}={SetOptions,Dynamic,WindowMargins->m};With[{p=d@MousePosition["ScreenAbsolute"]},
m=d@{{p[[1]]-50,0},{0,p[[2]]-35}}];s[$FrontEndSession,FrontEndEventActions->{"MouseMoved":>s[a,w]}];a=CreateDialog[{DefaultButton[]},w];

PS Ketika Anda selesai menguji, jalankan ini untuk menghapus opsi ujung depan.

SetOptions[$FrontEndSession,FrontEndEventActions->None]

Javascript (ES6) + HTML + CSS, 139 byte

HTML:

<d id=d><button>X

CSS:

d{background:red;padding:9px;position:absolute

Javascript:

onmousemove=e=>{with(d.style){top=e.clientY-20+'px';left=e.clientX-20+'px'}}

Karena Anda tidak dapat memposisikan dialog peringatan, saya membuat dialog super mewah khusus saya dalam HTML. Javascript mendaftarkan pengendali acara pada objek jendela dan mengatur posisi ke koordinat acara.

Cobalah online: https://jsfiddle.net/1yohswje/