forked from KolibriOS/kolibrios
add InputBox examples
git-svn-id: svn://kolibrios.org@7457 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
0CodErr
parent
507181f130
commit
8bde880daf
23
programs/develop/libraries/InputBox/Examples/bcc/LScript.x
Normal file
23
programs/develop/libraries/InputBox/Examples/bcc/LScript.x
Normal file
@ -0,0 +1,23 @@
|
||||
PATH_SIZE = 1024;
|
||||
PARAMS_SIZE = 256;
|
||||
STACK_SIZE = 1024;
|
||||
|
||||
SECTIONS
|
||||
{
|
||||
.all : AT(0){
|
||||
LONG(0x554e454D);
|
||||
LONG(0x31305445);
|
||||
LONG(1);
|
||||
LONG("_Main");
|
||||
LONG(END);
|
||||
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||
LONG($END + PATH_SIZE);
|
||||
LONG($END);
|
||||
*(.text)
|
||||
*(.data)
|
||||
}
|
||||
END = .;
|
||||
.bss ALIGN(16) : {*(.bss)}
|
||||
$END = .;
|
||||
}
|
||||
@ -0,0 +1,7 @@
|
||||
Set KolibriOS="../../../../../../contrib/sdk/lib"
|
||||
Set NAME=test(InputBox)BCC
|
||||
@BCC32 -c %NAME%.c
|
||||
@LINK -edit %NAME%.obj
|
||||
@LD -T LScript.x %NAME%.obj -o %NAME%.kex -L %KolibriOS% -l KolibriOS
|
||||
@OBJCOPY -O binary -j .all %NAME%.kex
|
||||
@pause
|
||||
@ -0,0 +1,192 @@
|
||||
/* Event Constants */
|
||||
#define REDRAW_EVENT 1
|
||||
#define KEY_EVENT 2
|
||||
#define BUTTON_EVENT 3
|
||||
|
||||
/* Window Style Constants */
|
||||
#define WS_SKINNED_FIXED 0x4000000
|
||||
#define WS_COORD_CLIENT 0x20000000
|
||||
#define WS_CAPTION 0x10000000
|
||||
|
||||
/* Caption Style Constants */
|
||||
#define CS_MOVABLE 0
|
||||
|
||||
/* Charset specifiers for DrawText */
|
||||
#define DT_CP866_8X16 0x10000000
|
||||
|
||||
/* Fill styles for DrawText */
|
||||
#define DT_FILL_OPAQUE 0x40000000
|
||||
|
||||
/* Draw zero terminated string for DrawText */
|
||||
#define DT_ZSTRING 0x80000000
|
||||
|
||||
// Button identifiers
|
||||
#define BUTTON_CLOSE 1
|
||||
#define SET_LEFT_BUTTON 1111
|
||||
#define SET_TOP_BUTTON 2222
|
||||
#define SET_CAPTION_BUTTON 3333
|
||||
|
||||
// Flags = [mouse|screen|parent][number|string]
|
||||
#define IBF_STRING 0 // â áóôåð áóäåò çàïèñàíà ñòðîêà
|
||||
#define IBF_NUMBER 1 // â áóôåð áóäåò çàïèñàíî ÷èñëî
|
||||
#define IBF_MOUSE_REL 0 // îòíîñèòåëüíî ïîëîæåíèÿ óêàçàòåëÿ ìûøè
|
||||
#define IBF_SCREEN_REL 8 // îòíîñèòåëüíî ýêðàíà
|
||||
#define IBF_PARENT_REL 16 // îòíîñèòåëüíî ðîäèòåëüñêîãî îêíà
|
||||
|
||||
// Errors
|
||||
#define IBE_NO_ERROR 0 // óñïåøíî, íåò îøèáêè
|
||||
#define IBE_NUMBER_OVERFLOW 1 // ïåðåïîëíåíèå ïðè ââîäå ÷èñëà
|
||||
#define IBE_RESULT_TOO_LONG 2 // ðåçóëüòàò íå óìåùàåòñÿ â áóôåð
|
||||
|
||||
#pragma pack(1)
|
||||
|
||||
struct TButtonInput{
|
||||
union{
|
||||
struct{
|
||||
unsigned char MouseButton;
|
||||
unsigned short ID;
|
||||
unsigned char HiID;
|
||||
};
|
||||
unsigned long Value;
|
||||
};
|
||||
};
|
||||
|
||||
struct TKeyboardInput{
|
||||
union{
|
||||
struct{
|
||||
unsigned char Flag;
|
||||
char Code;
|
||||
union{
|
||||
char Scan;
|
||||
unsigned short Control;
|
||||
};
|
||||
};
|
||||
unsigned long Value;
|
||||
};
|
||||
};
|
||||
|
||||
struct TSize{
|
||||
union{
|
||||
struct{
|
||||
unsigned short Height;
|
||||
unsigned short Width;
|
||||
};
|
||||
unsigned long Value;
|
||||
};
|
||||
};
|
||||
|
||||
struct TBox{
|
||||
long Left;
|
||||
long Top;
|
||||
unsigned long SizeX;
|
||||
unsigned long SizeY;
|
||||
};
|
||||
|
||||
extern struct TButtonInput __stdcall GetButton(void);
|
||||
extern struct TKeyboardInput __stdcall GetKey(void);
|
||||
extern struct TSize __stdcall GetScreenSize(void);
|
||||
extern unsigned long __stdcall WaitEvent(void);
|
||||
extern void __stdcall BeginDraw(void);
|
||||
extern void __stdcall EndDraw(void);
|
||||
extern void __stdcall ThreadTerminate(void);
|
||||
|
||||
extern void __stdcall DrawWindow(long Left,
|
||||
long Top,
|
||||
unsigned long Width,
|
||||
unsigned long Height,
|
||||
char* Caption,
|
||||
unsigned long BackColor,
|
||||
unsigned long Style,
|
||||
unsigned long CapStyle);
|
||||
|
||||
extern void __stdcall DrawText(long X,
|
||||
long Y,
|
||||
char* Text,
|
||||
unsigned long ForeColor,
|
||||
unsigned long BackColor,
|
||||
unsigned long Flags,
|
||||
unsigned long Count);
|
||||
|
||||
extern void __stdcall DrawButton(long Left,
|
||||
long Top,
|
||||
unsigned long Width,
|
||||
unsigned long Height,
|
||||
unsigned long BackColor,
|
||||
unsigned long Style,
|
||||
unsigned long ID);
|
||||
|
||||
extern void __stdcall SetWindowPos(long Left, long Top, unsigned long Width, unsigned long Height);
|
||||
extern void* __stdcall LoadLibrary(char* Path);
|
||||
extern void* __stdcall GetProcAddress(void* hLib, char* ProcName);
|
||||
extern void __stdcall SetWindowCaption(char* Caption);
|
||||
extern long __stdcall RunFile(char* Path, char* CmdLine);
|
||||
|
||||
struct TSize Screen;
|
||||
struct TBox Window;
|
||||
|
||||
unsigned long err;
|
||||
|
||||
char Buf[100];
|
||||
long NewPos;
|
||||
|
||||
void* InputBoxLib;
|
||||
|
||||
unsigned long __stdcall (* InputBox)(void* Buffer, char* Caption, char* Prompt, char* Default,
|
||||
unsigned long Flags, unsigned long BufferSize, void* RedrawProc);
|
||||
|
||||
void OnRedraw(void){
|
||||
BeginDraw();
|
||||
DrawWindow(Window.Left, Window.Top, Window.SizeX, Window.SizeY, "Test InputBox", 0xFFFFFF, WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CS_MOVABLE);
|
||||
|
||||
DrawButton(8, 60, 81, 33, 0x0FF0000, 0, SET_LEFT_BUTTON);
|
||||
DrawButton(104, 60, 81, 33, 0x000FF00, 0, SET_TOP_BUTTON);
|
||||
DrawButton(200, 60, 93, 33, 0x0FFFF00, 0, SET_CAPTION_BUTTON);
|
||||
|
||||
DrawText(28, 72, "Set Left", 0, 0x0FFFFFF, DT_ZSTRING, 0);
|
||||
DrawText(122, 72, "Set Top", 0, 0x0FFFFFF, DT_ZSTRING, 0);
|
||||
DrawText(214, 72, "Set Caption", 0, 0x0FFFFFF, DT_ZSTRING, 0);
|
||||
|
||||
EndDraw();
|
||||
}
|
||||
/* -------------------------------------------------------- */
|
||||
void Main(){
|
||||
InputBoxLib = LoadLibrary("/sys/lib/InputBox.obj");
|
||||
InputBox = GetProcAddress(InputBoxLib, "InputBox");
|
||||
|
||||
Window.Left = 100;
|
||||
Window.Top = 70;
|
||||
Window.SizeX = 315;
|
||||
Window.SizeY = 200;
|
||||
|
||||
while(1){
|
||||
switch (WaitEvent()){
|
||||
case BUTTON_EVENT:
|
||||
switch (GetButton().ID){
|
||||
case BUTTON_CLOSE:
|
||||
ThreadTerminate();
|
||||
break;
|
||||
case SET_LEFT_BUTTON:
|
||||
err = InputBox(&NewPos, "Input", "Enter new left", "100", IBF_NUMBER + IBF_PARENT_REL, sizeof(NewPos), &OnRedraw);
|
||||
if (err) RunFile("/sys/@notify", "Error");
|
||||
SetWindowPos(NewPos, -1, -1, -1);
|
||||
break;
|
||||
case SET_TOP_BUTTON:
|
||||
err = InputBox(&NewPos, "Input", "Enter new top", "70", IBF_NUMBER + IBF_SCREEN_REL, sizeof(NewPos), &OnRedraw);
|
||||
if (err) RunFile("/sys/@notify", "Error");
|
||||
SetWindowPos(-1, NewPos, -1, -1);
|
||||
break;
|
||||
case SET_CAPTION_BUTTON:
|
||||
InputBox(&Buf, "Input", "Enter new caption", "Test InputBox", IBF_STRING + IBF_MOUSE_REL, sizeof(Buf), &OnRedraw);
|
||||
SetWindowCaption(Buf);
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case KEY_EVENT:
|
||||
GetKey();
|
||||
break;
|
||||
case REDRAW_EVENT:
|
||||
OnRedraw();
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
27
programs/develop/libraries/InputBox/Examples/uasm/LScript.x
Normal file
27
programs/develop/libraries/InputBox/Examples/uasm/LScript.x
Normal file
@ -0,0 +1,27 @@
|
||||
PATH_SIZE = 1024;
|
||||
PARAMS_SIZE = 256;
|
||||
STACK_SIZE = 1024;
|
||||
|
||||
AppParams = $END + PATH_SIZE;
|
||||
AppPath = $END;
|
||||
|
||||
SECTIONS
|
||||
{
|
||||
.all : AT(0){
|
||||
LONG(0x554e454D);
|
||||
LONG(0x31305445);
|
||||
LONG(1);
|
||||
LONG("@Main");
|
||||
LONG(END);
|
||||
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||
LONG(AppParams);
|
||||
LONG(AppPath);
|
||||
*(.text)
|
||||
*(.rdata)
|
||||
*(.data)
|
||||
}
|
||||
END = .;
|
||||
.bss ALIGN(16) : {*(.bss)}
|
||||
$END = .;
|
||||
}
|
||||
@ -0,0 +1,7 @@
|
||||
Set KolibriOS="../../../../../../contrib/sdk/lib"
|
||||
Set Name=test(InputBox)UASM
|
||||
@uasm32 -zt0 -coff %Name%.asm
|
||||
@ld -T LScript.x %Name%.obj -o %Name%.kex -L %KolibriOS% -l KolibriOS
|
||||
@objcopy -O binary -j .all %Name%.kex
|
||||
@del %Name%.obj
|
||||
@pause
|
||||
@ -0,0 +1,232 @@
|
||||
.586
|
||||
.Model Flat, StdCall
|
||||
Option CaseMap: None
|
||||
|
||||
Public @Main
|
||||
|
||||
FALSE = 0
|
||||
TRUE = Not FALSE
|
||||
|
||||
CStr Macro QuotedText:VarArg
|
||||
Local LocalText
|
||||
.Const
|
||||
LocalText db QuotedText,0
|
||||
.Code
|
||||
ExitM <Offset LocalText>
|
||||
EndM
|
||||
|
||||
RepArg Macro Arg
|
||||
Local NewStr
|
||||
Quot SubStr <Arg>, 1, 1
|
||||
IfIdn Quot, <">
|
||||
.Data
|
||||
NewStr db Arg,0
|
||||
.Code
|
||||
ExitM <ADDR NewStr>
|
||||
Else
|
||||
ExitM <Arg>
|
||||
EndIf
|
||||
EndM
|
||||
|
||||
@ Macro Function:Req, Args:VarArg
|
||||
Arg equ <Invoke Function>
|
||||
For Var, <Args>
|
||||
Arg CatStr Arg, <, RepArg(Var)>
|
||||
EndM
|
||||
Arg
|
||||
ExitM <eax>
|
||||
EndM
|
||||
|
||||
WINDOW_BORDER_SIZE = 5
|
||||
|
||||
; Events
|
||||
REDRAW_EVENT = 1
|
||||
KEY_EVENT = 2
|
||||
BUTTON_EVENT = 3
|
||||
BACKGROUND_EVENT = 5
|
||||
MOUSE_EVENT = 6
|
||||
IPC_EVENT = 7
|
||||
NETWORK_EVENT = 8
|
||||
DEBUG_EVENT = 9
|
||||
|
||||
; Window Style Constants
|
||||
WS_SKINNED_FIXED = 4000000H
|
||||
WS_COORD_CLIENT = 20000000H
|
||||
WS_CAPTION = 10000000H
|
||||
|
||||
; Caption Style Constants
|
||||
CS_MOVABLE = 0
|
||||
|
||||
; Event Mask Constants
|
||||
EM_REDRAW = 001H
|
||||
EM_KEY = 002H
|
||||
EM_BUTTON = 004H
|
||||
EM_BACKGROUND = 010H
|
||||
EM_MOUSE = 020H
|
||||
EM_IPC = 040H
|
||||
EM_NETWORK = 080H
|
||||
EM_DEBUG = 100H
|
||||
|
||||
; SharedMemoryOpen open\access flags
|
||||
SHM_OPEN = 000H
|
||||
SHM_OPEN_ALWAYS = 004H
|
||||
SHM_CREATE = 008H
|
||||
SHM_READ = 000H
|
||||
SHM_WRITE = 001H
|
||||
|
||||
; Draw zero terminated string for DrawText
|
||||
DT_ZSTRING = 080000000H
|
||||
|
||||
TRect Struct
|
||||
Left SDword ?
|
||||
Top SDword ?
|
||||
Right SDword ?
|
||||
Bottom SDword ?
|
||||
TRect EndS
|
||||
|
||||
TBox Struct
|
||||
Left SDword ?
|
||||
Top SDword ?
|
||||
SizeX Dword ?
|
||||
SizeY Dword ?
|
||||
TBox EndS
|
||||
|
||||
TSize Struct
|
||||
SizeY Word ?
|
||||
SizeX Word ?
|
||||
TSize EndS
|
||||
|
||||
TKeyboardInput Struct
|
||||
Flag Byte ?
|
||||
Code Byte ?
|
||||
Union
|
||||
Scan Byte ?
|
||||
Control Word ?
|
||||
EndS
|
||||
TKeyboardInput EndS
|
||||
|
||||
TButtonInput Struct
|
||||
MouseButton Byte ?
|
||||
ID Word ?
|
||||
HiID Byte ?
|
||||
TButtonInput EndS
|
||||
|
||||
; Button identifiers
|
||||
BUTTON_CLOSE = 1
|
||||
SET_LEFT_BUTTON = 1111
|
||||
SET_TOP_BUTTON = 2222
|
||||
SET_CAPTION_BUTTON = 3333
|
||||
|
||||
; Flags = [mouse|screen|parent][number|string]
|
||||
IBF_STRING = 0 ; â áóôåð áóäåò çàïèñàíà ñòðîêà
|
||||
IBF_NUMBER = 1 ; â áóôåð áóäåò çàïèñàíî ÷èñëî
|
||||
IBF_MOUSE_REL = 0 ; îòíîñèòåëüíî ïîëîæåíèÿ óêàçàòåëÿ ìûøè
|
||||
IBF_SCREEN_REL = 8 ; îòíîñèòåëüíî ýêðàíà
|
||||
IBF_PARENT_REL = 16 ; îòíîñèòåëüíî ðîäèòåëüñêîãî îêíà
|
||||
|
||||
; Errors
|
||||
IBE_NO_ERROR = 0 ; óñïåøíî, íåò îøèáêè
|
||||
IBE_NUMBER_OVERFLOW = 1 ; ïåðåïîëíåíèå ïðè ââîäå ÷èñëà
|
||||
IBE_RESULT_TOO_LONG = 2 ; ðåçóëüòàò íå óìåùàåòñÿ â áóôåð
|
||||
|
||||
GetButton Proto
|
||||
GetKey Proto
|
||||
WaitEvent Proto
|
||||
BeginDraw Proto
|
||||
EndDraw Proto
|
||||
DrawWindow Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword, Caption:Ptr, BackColor:Dword, Style:Dword, CapStyle:Dword
|
||||
ThreadTerminate Proto
|
||||
LoadLibrary Proto Path:Ptr
|
||||
GetProcAddress Proto hLib:Ptr, ProcName:Ptr
|
||||
SetEventMask Proto EventMask:Dword
|
||||
GetScreenSize Proto
|
||||
GetSkinHeight Proto
|
||||
HeapAllocate Proto Bytes:Dword
|
||||
DrawButton Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword, BackColor:Dword, Style:Dword, ID:Dword
|
||||
GetStandardColors Proto ColorTable:Ptr, TableSize:Dword
|
||||
DrawText Proto X:SDword, Y:SDword, Text:Ptr, ForeColor:Dword, BackColor:Dword, Flags:Dword, Count:Dword
|
||||
SetWindowCaption Proto Caption:Ptr
|
||||
RunFile Proto Path:Ptr, CmdLine:Ptr
|
||||
SetWindowPos Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword
|
||||
|
||||
InputBox_proto TypeDef Proto Buffer:Ptr, Caption:Ptr, Prompt:Ptr, Default:Ptr, Flags:Dword, BufferSize:Dword, RedrawProc:Ptr
|
||||
InputBox_proc TypeDef Ptr InputBox_proto
|
||||
|
||||
; -------------------------------------------------------- ;
|
||||
.Data? ; ------------------------------------------------- ;
|
||||
; -------------------------------------------------------- ;
|
||||
Extern AppParams: Byte
|
||||
Extern AppPath: Byte
|
||||
|
||||
Window TBox <>
|
||||
Screen TSize <>
|
||||
|
||||
Key TKeyboardInput <>
|
||||
Button TButtonInput <>
|
||||
|
||||
Buf Byte 100 Dup (?)
|
||||
NewPos Dword ?
|
||||
|
||||
InputBoxLib Dword ?
|
||||
InputBox InputBox_proc ?
|
||||
|
||||
; -------------------------------------------------------- ;
|
||||
.Code ; -------------------------------------------------- ;
|
||||
; -------------------------------------------------------- ;
|
||||
OnRedraw Proc
|
||||
Invoke BeginDraw
|
||||
Invoke DrawWindow, Window.Left, Window.Top, Window.SizeX, Window.SizeY, CStr("Test InputBox"), 0FFFFFFH, WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CS_MOVABLE
|
||||
|
||||
Invoke DrawButton, 8, 60, 81, 33, 00FF0000H, 0, SET_LEFT_BUTTON
|
||||
Invoke DrawButton, 104, 60, 81, 33, 0000FF00H, 0, SET_TOP_BUTTON
|
||||
Invoke DrawButton, 200, 60, 93, 33, 00FFFF00H, 0, SET_CAPTION_BUTTON
|
||||
|
||||
Invoke DrawText, 28, 72, CStr("Set Left"), 0, 00FFFFFFH, DT_ZSTRING, 0
|
||||
Invoke DrawText, 122, 72, CStr("Set Top"), 0, 00FFFFFFH, DT_ZSTRING, 0
|
||||
Invoke DrawText, 214, 72, CStr("Set Caption"), 0, 00FFFFFFH, DT_ZSTRING, 0
|
||||
|
||||
Invoke EndDraw
|
||||
ret
|
||||
OnRedraw Endp
|
||||
; -------------------------------------------------------- ;
|
||||
@Main:
|
||||
mov InputBoxLib, @(LoadLibrary, CStr("/sys/lib/InputBox.obj"))
|
||||
mov InputBox, @(GetProcAddress, InputBoxLib, CStr("InputBox"))
|
||||
|
||||
mov Window.Left, 100
|
||||
mov Window.Top, 70
|
||||
mov Window.SizeX, 315
|
||||
mov Window.SizeY, 200
|
||||
|
||||
Invoke SetEventMask, EM_REDRAW + EM_KEY + EM_BUTTON + EM_MOUSE
|
||||
|
||||
.Repeat
|
||||
Invoke WaitEvent
|
||||
.If eax == REDRAW_EVENT
|
||||
Invoke OnRedraw
|
||||
.ElseIf eax == KEY_EVENT
|
||||
Invoke GetKey
|
||||
.ElseIf eax == BUTTON_EVENT
|
||||
mov Button, @(GetButton)
|
||||
.If Button.ID == BUTTON_CLOSE
|
||||
Invoke ThreadTerminate
|
||||
.ElseIf Button.ID == SET_LEFT_BUTTON
|
||||
Invoke InputBox, Offset NewPos, CStr("Input"), CStr("Enter new left"), CStr("100"), IBF_NUMBER + IBF_PARENT_REL, SizeOf(NewPos), Offset OnRedraw
|
||||
.If eax != 0
|
||||
Invoke RunFile, CStr("/sys/@notify"), CStr("Error")
|
||||
.EndIf
|
||||
Invoke SetWindowPos, NewPos, -1, -1, -1
|
||||
.ElseIf Button.ID == SET_TOP_BUTTON
|
||||
Invoke InputBox, Offset NewPos, CStr("Input"), CStr("Enter new top"), CStr("70"), IBF_NUMBER + IBF_SCREEN_REL, SizeOf(NewPos), Offset OnRedraw
|
||||
.If eax != 0
|
||||
Invoke RunFile, CStr("/sys/@notify"), CStr("Error")
|
||||
.EndIf
|
||||
Invoke SetWindowPos, -1, NewPos, -1, -1
|
||||
.ElseIf Button.ID == SET_CAPTION_BUTTON
|
||||
Invoke InputBox, Offset Buf, CStr("Input"), CStr("Enter new caption"), CStr("Test InputBox"), IBF_STRING + IBF_MOUSE_REL, SizeOf(Buf), Offset OnRedraw
|
||||
Invoke SetWindowCaption, Offset Buf
|
||||
.EndIf
|
||||
.ElseIf eax == MOUSE_EVENT
|
||||
.EndIf
|
||||
.Until 0
|
||||
END
|
||||
Loading…
Reference in New Issue
Block a user