Board.KolibriOS.org

Code: Select all

struct progressbar
{
	dword
	pb_value,
	pb_left,
	pb_top,
	pb_width,
	pb_height,
	pb_style,
	pb_min,
	pb_max,
	pb_back_color,
	pb_progress_color,
	pb_frame_color;
};

progressbar progress_bar = {0,0,0,0,0,0,0,100,0xFFFfff,0x54B1D6,0};
void DrawProgressBar(dword st_x, st_y, st_w, st_h, progress_percent, status_text)
{
	progress_bar.pb_value = progress_percent;
	progress_bar.pb_left = st_x;
	progress_bar.pb_top = st_y;
	progress_bar.pb_width = st_w;
	progress_bar.pb_height = st_h;
	progress_bar.pb_frame_color = sc.work_graph;
	//progressbar_draw stdcall (#progress_bar);
	progressbar_progress stdcall (#progress_bar);
}

Code: Select all

While WorkNotComplete
  NextWork
  If isComplete(CurrentWork) then progressbar_progress
EndWhile

Code: Select all

struc option_box point_gr,left,top,op_text_margin,op_size,color,border_color,text_color,text,op_text_length,flags
{        ;структура параметров для чек бокса
op_flag_en=10b
.option_group: dd point_gr
.left: dw left       ;+0 ;положение по х
.top:  dw top        ;положение по у
.ch_text_margin:  dd op_text_margin ;расстояние от прямоугольника чек бокса до надписи
.ch_size: dd op_size ;размер квадрата чек бокса, для примера 12
.color:   dd color   ;цвет внутри чекбокса
.border_color: dd border_color ;цвет рамки
.text_color:   dd text_color   ;цвет надписи
.text: dd text                 ;адрес в коде программы где расположен текст
.ch_text_length: dd op_text_length ;длинна строки с символами
.flags: dd flags+0   ; флаги
}