Avoraiser/avoraiser.events.pas at main · Programista-Art/Avoraiser · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
(*
Avoraiser UI Framework - High-Performance WinAPI UI for Avocado
Avoraiser is a framework for creating modern user interfaces for the Polish programming language Avocado.
Copyright (c) 2025-2026 Dymitr Wygowski (Programista Art)
Project Created: 23.12.2025

Author:     Dymitr Wygowski (Programista Art)
Contact:    programista.art@gmail.com
GitHub:     https://github.com/Programista-Art/Avoraiser
Version:    1.0
License:    Dual-Licensed: Avoraiser Community / Commercial
            See LICENSE.md for terms and conditions.

Module:     avoraiser.events
Description:
*)

unit avoraiser.events;

{$mode ObjFPC}{$H+}

interface

uses
  Windows, avoraiser.core;


type
    // Mysz i Klawiatura
    TMouseCallbacks = record
      OnMove: TAvocadoMouseEvent;
      OnLDown, OnLUp, OnLDblClick: TAvocadoMouseEvent;
      OnRDown, OnRUp, OnRDblClick: TAvocadoMouseEvent;
      OnMDown, OnMUp, OnMDblClick: TAvocadoMouseEvent;
      OnWheel, OnHWheel: TAvocadoWheelEvent;
      OnHitTest: TAvocadoHitTestEvent;
      // Pola Non-Client
      OnNCMove, OnNCLDown, OnNCLUp, OnNCLDblClick, OnNCRDown, OnNCRUp: TAvocadoNCMouseEvent;
    end;


    TMouseEntry = record
      Handle: HWND;
      Callbacks: TMouseCallbacks;
    end;


    TKeyboardCallbacks = record
      OnKeyDown, OnKeyUp: TAvocadoKeyEvent;
      OnSysKeyDown, OnSysKeyUp: TAvocadoKeyEvent;
      OnChar, OnSysChar: TAvocadoCharEvent;
      OnDeadChar, OnUniChar: TAvocadoCharEvent;
    end;

    TKeyboardEntry = record
      Handle: HWND;
      Callbacks: TKeyboardCallbacks;
    end;

    TFocusCallbacks = record
      OnSetFocus, OnKillFocus: TAvocadoFocusEvent;
      OnActivateApp: TAvocadoActivateAppEvent;
      OnEnable: TAvocadoEnableEvent;
    end;

    TFocusEntry = record
      Handle: HWND;
      Callbacks: TFocusCallbacks;
    end;

    // Menu i inne
    TMenuCallbacks = record
      OnInitPopup: TAvocadoInitMenuEvent;
      OnSelect: TAvocadoMenuSelectEvent;
    end;

    TMenuEntry = record
      Handle: HWND;
      Callbacks: TMenuCallbacks;
    end;

    //TEventEntry = record Handle: HWND; Callback: TAvocadoEvent; end;
    //TResizeEntry = record Handle: HWND; Callback: TAvocadoEvent; end; // Stary typ resize
   // TKeyEntry = record Handle: HWND; Callback: TAvocadoKeyEvent; end;
   // TMoveEntry = record Handle: HWND; Callback: TAvocadoEvent; end;
   // TMinMaxEntry = record Handle: HWND; OnMinMax: TAvocadoMinMaxEvent; end;
    //TContextEntry = record Handle: HWND; OnContext: TAvocadoContextEvent; end;
    //TCloseEntry = record Handle: HWND; Callback: TAvocadoCloseEvent; end;
   // TSizingEntry = record Handle: HWND; Callback: TAvocadoSizingEvent; end;
   // TMovingEntry = record Handle: HWND; Callback: TAvocadoMovingEvent; end;
    //TPosChangingEntry = record Handle: HWND; Callback: TAvocadoWindowPosEvent; end;


    //TDropEntry = record Handle: HWND; OnDrop: TAvocadoDropFilesEvent; end;
    TScrollEntry = record Handle: HWND; OnScroll: TAvocadoScrollEvent; end;
    //
    //TClipEntry = record Handle: HWND; OnRender: TAvocadoRenderFormatEvent; OnRenderAll: TAvocadoRenderAllEvent; end;
    //TTimerEntry = record Handle: HWND; OnTimer: TAvocadoTimerEvent; end;
    //TPowerEntry = record Handle: HWND; OnPower: TAvocadoPowerEvent; end;


    TSessionEntry = record
      Handle: HWND;
      OnQuery: TAvocadoQueryEndSessionEvent;
      OnEnd: TAvocadoEndSessionEvent;
    end;


var
     MenuRegistry: array of TMenuEntry;


implementation


end.