import base.win; //примитивы с окнами
import base.gui; //гуишные контроллы
Dialog ref testDlg;
void closeDlg(Dialog ref Dialog,  int param){}//вызывается при закрытии
testDlg = CreateDialog("Test window ", 200, 200, 250, 200, closeDlg);

HWND static1;
TrackBar Alpha_t;

void FunctiaTrakBar(Dialog ref dlg, int param){//функция вызывается когда меняем полоску трак бара.
dlg.SetAlpha(Alpha_t.GetPos()+5); // Тут ставим + 5 что бы нечайно сделав ползунок на минимум то окно не стало полностью невидимой.
static1.SetText("Прозрачность окна: "+(int(Alpha_t.GetPos()+5)).str());}

void FuntiaKnopka(Dialog ref dlg, int param){  dlg.SetAlpha(0);   } //функция вызывается когда нажимаем кнопку.

void HotKeyFunction(Dialog ref dlg, int param){  dlg.SetAlpha(97);  static1.SetText("Прозрачность окна: 97"); Alpha_t.SetPos(97); }

Alpha_t =  testDlg.AddTrackBar(15, 29, 205, 13, FunctiaTrakBar, 1); Alpha_t.SetPos(100);
testDlg.AddButton("Сделать окно полностью невидимой.", 15, 70, 200, 20, FuntiaKnopka, 1);
testDlg.AddHotKey('R', false, false, false, HotKeyFunction, 1);

static1 = testDlg.AddStatic("Прозрачность окна: 105", 17, 50, 200, 20);
testDlg.AddStatic("Что бы сделать окно обратно видимой нажмите R", 17, 140, 150, 40);

testDlg.Show(1);//Показать диалог
testDlg.WaitClose();//ждем закрытия диалога
return 0;