Unit Thinkbox

///////////////////////////////////////////////////////////////////////////// // General purpose Mini-message box // ŠJohn Biddiscombe // j.biddiscombe@rl.ac.uk // // /////////////////////////////////////////////////////////////////////////////

Classes

TThinking_box - Borland

Functions

progress_bar - this stops a redraw by saving background bitmap - useful for tiny windows Doesn't seem to work though :(
set_thinking_pause_time -
stopped_thinking - 24 for bar panel
thinking -
thinking_bar -
Thinking_error -
Thinking_pause -

Types

Constants

Variables

thinkbox_active


Functions


function progress_bar : TProgressBar;

this stops a redraw by saving background bitmap - useful for tiny windows Doesn't seem to work though :(

procedure set_thinking_pause_time(d:integer);


procedure stopped_thinking;

24 for bar panel

procedure thinking(parent:TForm; mssage:Pchar);


procedure thinking_bar(parent:TForm; mssage:Pchar);


procedure Thinking_error(mess:PChar);


procedure Thinking_pause;


Types


Constants


Variables

thinkbox_active : boolean