a98a757c38
git-svn-id: svn://kolibrios.org@2266 a494cfbc-eb01-0410-851d-a64ba20cac60
54 lines
1.3 KiB
Plaintext
54 lines
1.3 KiB
Plaintext
//Leency - 2011
|
|
|
|
#define add_new_path 1
|
|
#define go_back 2
|
|
|
|
void HistoryPath(byte action)
|
|
{
|
|
if (action==add_new_path)
|
|
{
|
|
IF (strcmp(#PathHistory+find_symbol(#PathHistory,'|'),#path)==0) return;
|
|
IF (strlen(#PathHistory)+strlen(#path)>2560)
|
|
{
|
|
copystr(#PathHistory+1024,#PathHistory);
|
|
copystr("/",#PathHistory+strlen(#PathHistory));
|
|
}
|
|
copystr("|",#PathHistory+strlen(#PathHistory));
|
|
copystr(#path,#PathHistory+strlen(#PathHistory));
|
|
}
|
|
if (action==go_back)
|
|
{
|
|
i=strlen(#PathHistory)-1;
|
|
WHILE (PathHistory[i]<>'|') { i--; };
|
|
IF (i>0) PathHistory[i]=0x00;
|
|
WHILE (PathHistory[i]<>'|') { copystr(#PathHistory[i],#path); i--; }
|
|
IF (i>0) PathHistory[i]=0x00;
|
|
}
|
|
}
|
|
|
|
|
|
dword onLeft(dword right,left) {EAX=Form.width-right-left;}
|
|
dword onTop(dword down,up) {EAX=Form.height-GetSkinWidth()-down-up;}
|
|
|
|
|
|
void ShowMessage(dword message)
|
|
{
|
|
DrawFlatButton(Form.width/2-13,160,200,80,0,0xFFB6B5, message);
|
|
Pause(150);
|
|
List_ReDraw();
|
|
}
|
|
|
|
|
|
dword ConvertSize(dword bytes)
|
|
{
|
|
byte size_prefix[8], temp[3];
|
|
IF (bytes>=1073741824) copystr(" Gb",#temp);
|
|
ELSE IF (bytes>=1048576) copystr(" Mb",#temp);
|
|
ELSE IF (bytes>=1024) copystr(" Kb",#temp);
|
|
ELSE copystr(" b ",#temp);
|
|
WHILE (bytes>1023) bytes/=1024;
|
|
copystr(IntToStr(bytes),#size_prefix);
|
|
copystr(#temp,#size_prefix+strlen(#size_prefix));
|
|
EAX=#size_prefix;
|
|
}
|