Subversion Repositories Kolibri OS

Rev

Rev 7252 | Rev 7349 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7252 Rev 7254
Line 52... Line 52...
52
 
52
 
Line 53... Line 53...
53
_tabs tabs = { LP, LP, NULL, NULL, SKINS };
53
_tabs tabs = { LP, LP, NULL, NULL, SKINS };
54
 
54
 
55
checkbox checkbox1 = { "Checkbox", true };
55
checkbox checkbox1 = { "Checkbox", true };
56
more_less_box spinbox1 = { 23, 0, 999, "SpinBox" };
56
more_less_box spinbox1 = { 23, 0, 999, "SpinBox" };
Line -... Line 57...
-
 
57
edit_box edit_cmm = {180,NULL,NULL,0xffffff,0x94AECE,0xFFFfff,0xffffff,
-
 
58
	0x10000000,sizeof(param),#param,0, 0b};
-
 
59
 
-
 
60
char st_str[16];
-
 
61
edit_box edit_st = {180,NULL,NULL,0xffffff,0x94AECE,0xFFFfff,0xffffff,
57
edit_box edit1 = {180,NULL,NULL,0xffffff,0x94AECE,0xFFFfff,0xffffff,
62
	0x10000000,sizeof(st_str),#st_str,0, 0b};
Line 58... Line 63...
58
	0x10000000,sizeof(param),#param,0, 0b};
63
 
59
 
64
 
60
#define MENU_LIST "Open file     Enter\nDelete          Del"
65
#define MENU_LIST "Open file     Enter\nDelete          Del"
Line 75... Line 80...
75
	loop() switch(WaitEvent()) 
80
	loop() switch(WaitEvent()) 
76
	{
81
	{
77
	  	case evMouse:
82
	  	case evMouse:
78
			if (!CheckActiveProcess(Form.ID)) break;
83
			if (!CheckActiveProcess(Form.ID)) break;
79
			SelectList_ProcessMouse();
84
			SelectList_ProcessMouse();
-
 
85
			edit_box_mouse stdcall (#edit_cmm);
80
			edit_box_mouse stdcall (#edit1);
86
			edit_box_mouse stdcall (#edit_st);
Line 81... Line 87...
81
 
87
 
82
	  		if (mouse.pkm)&&(select_list.MouseOver(mouse.x, mouse.y)) {
88
	  		if (mouse.pkm)&&(select_list.MouseOver(mouse.x, mouse.y)) {
83
	  			select_list.ProcessMouse(mouse.x, mouse.y);
89
	  			select_list.ProcessMouse(mouse.x, mouse.y);
84
				SelectList_Draw();
90
				SelectList_Draw();
Line 113... Line 119...
113
					EventApply();
119
					EventApply();
114
					break;
120
					break;
115
				}
121
				}
116
			}
122
			}
117
			EAX= key_ascii << 8;
123
			EAX= key_ascii << 8;
-
 
124
			edit_box_key stdcall (#edit_cmm);
118
			edit_box_key stdcall (#edit1);
125
			edit_box_key stdcall (#edit_st);
119
			break;
126
			break;
Line 120... Line 127...
120
		 
127
		 
121
		 case evReDraw:
128
		 case evReDraw:
122
			system.color.get();			
129
			system.color.get();			
Line 173... Line 180...
173
		DrawRectangle(skp.x-20, select_list.y, skp.w+40, select_list.h, system.color.work_graph);
180
		DrawRectangle(skp.x-20, select_list.y, skp.w+40, select_list.h, system.color.work_graph);
174
		y.n = skp.y;
181
		y.n = skp.y;
175
		DrawFrame(skp.x, skp.y, skp.w, skp.h, " Components Preview ");
182
		DrawFrame(skp.x, skp.y, skp.w, skp.h, " Components Preview ");
176
		checkbox1.draw(skp.x+20, y.inc(30));
183
		checkbox1.draw(skp.x+20, y.inc(30));
177
		spinbox1.draw(skp.x+20, y.inc(30));
184
		spinbox1.draw(skp.x+20, y.inc(30));
178
		WriteText(skp.x+20, y.inc(30), 0x90, system.color.work_text, "Edit box");
185
		WriteText(skp.x+20, y.inc(30), 0x90, system.color.work_text, "C-- Edit");
179
		DrawEditBoxPos(skp.x+20, y.inc(20), #edit1);
186
		DrawEditBoxPos(skp.x+20, y.inc(20), #edit_cmm);
-
 
187
		WriteText(skp.x+20, y.inc(35), 0x90, system.color.work_text, "Strandard Edit");
-
 
188
		DrawStEditBoxPos(skp.x+20, y.inc(20), #edit_st);
180
		DrawStandartCaptButton(skp.x+20, skp.y+skp.h-40, GetFreeButtonId(), "Button1");
189
		DrawStandartCaptButton(skp.x+20, skp.y+skp.h-40, GetFreeButtonId(), "Button1");
181
		DrawStandartCaptButton(skp.x+120, skp.y+skp.h-40, GetFreeButtonId(), "Button2");
190
		DrawStandartCaptButton(skp.x+120, skp.y+skp.h-40, GetFreeButtonId(), "Button2");
182
	}
191
	}
183
}
192
}
Line -... Line 193...
-
 
193
 
-
 
194
:void DrawStEditBoxPos(dword x,y, edit_box_pointer)
-
 
195
{
-
 
196
	dword c_inactive = MixColors(system.color.work_graph, system.color.work, 128);
-
 
197
	dword c_active = MixColors(system.color.work_graph, 0, 128);
-
 
198
	ESI = edit_box_pointer;
-
 
199
	ESI.edit_box.left = x;
-
 
200
	ESI.edit_box.top = y;
-
 
201
	ESI.edit_box.blur_border_color = c_inactive;
-
 
202
	ESI.edit_box.focus_border_color = c_active;
-
 
203
	edit_box_draw  stdcall (edit_box_pointer);
-
 
204
}
Line 184... Line 205...
184
 
205
 
185
 
206
 
186
 
207