mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2025-01-15 00:56:39 +00:00
24 lines
447 B
HolyC
Executable file
24 lines
447 B
HolyC
Executable file
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
I64 i, j;
|
|
U16 *ptr = gr.win_z_buf;
|
|
dc->color = BLACK;
|
|
GrPrint(dc, 0, 0, "Move the windows around and watch.");
|
|
for (i = 0; i < TEXT_ROWS; i++)
|
|
for (j = 0; j <TEXT_COLS; j++)
|
|
{
|
|
dc->color = *ptr++ & 15;
|
|
GrPlot(dc, j, i + FONT_HEIGHT);
|
|
}
|
|
}
|
|
|
|
U0 ScrollBars()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
DocClear;
|
|
Fs->draw_it = &DrawIt;
|
|
CharGet(, FALSE);
|
|
SettingsPop;
|
|
}
|
|
|
|
ScrollBars;
|