Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 3066 → Rev 3067

/programs/cmm/rb/@rb
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programs/cmm/rb/compile.bat
0,0 → 1,7
del @rb
..\C--\C-- rb
..\C--\kpack rb.com
rename rb.com @rb
del warning.txt
del rb.com
pause
/programs/cmm/rb/rb.c
0,0 → 1,134
//@RB - v0.5
 
#include "..\lib\kolibri.h"
#include "..\lib\figures.h"
#include "..\lib\file_system.h"
 
 
#define ITEM_HEIGHT 18
#define ITEM_WIDTH 138
 
char *ITEMS_LIST[]={
"Ñìåíèòü òåìó îêîí "w, "/sys/SKINSEL", 0,
"Âûáðàòü öâåò ôîíà "w, "/sys/media/palitra", 0,
"Óïðàâëåíèå èêîíêàìè "w, "/sys/ICON", 0,
"Íàñòðîéêà óñòðîéñòâ "w, "/sys/SETUP", 0,
"Îáíîâèòü ñòîë "w, "/sys/REFRSCRN", 0,
"Ïðîöåññû "w, "/sys/CPU", 0,
0};
 
dword stak[100];
 
 
void main()
{
mouse mm;
byte thread_id;
SetEventMask(100000b);
loop() switch(WaitEvent())
{
case evMouse:
mm.get();
 
if (GetPointOwner(mm.x, mm.y)==1) && (mm.pkm)
{
SwitchToAnotherThread();
CreateThread(#window,#stak);
}
}
}
 
void window()
{
proc_info MenuForm;
system_colors sc;
mouse m;
int items_num, items_cur;
int id1, key, i;
sc.get();
SetEventMask(100111b);
loop() switch(WaitEvent())
{
case evMouse:
m.get();
 
GetProcessInfo(#MenuForm, SelfInfo);
id1=GetProcessSlot(MenuForm.ID);
if (id1<>GetActiveProcess()) ExitProcess();
id1=m.y-1/ITEM_HEIGHT;
if (m.y<0) || (id1+1>items_num) || (m.x<0) || (m.x>ITEM_WIDTH) break;
if (m.lkm) || (m.pkm)
{
//feel clicking
DrawBar(1, items_cur*ITEM_HEIGHT+2, ITEM_WIDTH-1, ITEM_HEIGHT-2, sc.work_graph);
WriteText(8,items_cur*ITEM_HEIGHT+6,0x80,sc.work_button_text,ITEMS_LIST[items_cur*3],0);
Pause(4);
ItemProcess(items_cur);
}
if (items_cur<>id1)
{
items_cur=id1;
goto _ITEMS_DRAW;
}
break;
case evButton:
break;
case evKey:
key = GetKey();
if (key==27) ExitProcess();
if (key==178) && (items_cur)
{
items_cur--;
goto _ITEMS_DRAW;
}
if (key==177) && (items_cur+1<items_num)
{
items_cur++;
goto _ITEMS_DRAW;
}
if (key==13)
{
ItemProcess(items_cur);
}
break;
case evReDraw:
while (ITEMS_LIST[items_num*3]) items_num++;
m.get();
DefineAndDrawWindow(m.x+1,m.y,ITEM_WIDTH,items_num*ITEM_HEIGHT+1,0x01,sc.work,0, 0x01fffFFF);
DrawRectangle(0,0,ITEM_WIDTH,items_num*ITEM_HEIGHT+1,sc.work_graph); //îáîäîê
_ITEMS_DRAW:
for (i=0; i<items_num; i++;)
{
if (i==items_cur)
{
DrawBar(1, i*ITEM_HEIGHT+1, ITEM_WIDTH-1, 1, sc.work_graph);
DrawBar(1, i+1*ITEM_HEIGHT, ITEM_WIDTH-1, 1, 0xFFFfff);
DrawBar(1, i*ITEM_HEIGHT+2, ITEM_WIDTH-1, ITEM_HEIGHT-2, sc.work_button);
WriteText(8,i*ITEM_HEIGHT+6,0x80,sc.work_button_text,ITEMS_LIST[i*3],0);
}
else
{
DrawBar(1, i*ITEM_HEIGHT+1, ITEM_WIDTH-1, ITEM_HEIGHT, sc.work);
WriteText(8,i*ITEM_HEIGHT+6,0x80,sc.work_text,ITEMS_LIST[i*3],0);
}
}
}
}
 
void ItemProcess(int num_id)
{
RunProgram(ITEMS_LIST[num_id*3+1], ITEMS_LIST[num_id*3+2]);
ExitProcess();
}
 
stop:
/programs/cmm/rb/.
Property changes:
Added: tsvn:logminsize
+5
\ No newline at end of property