I'm bored. I have a fancier version, but I have to fix some bugs first. Stare at this as I fix bugs.Code:program New; var Canvas:TCanvas; intCurrentStage:integer; procedure ResetDebug; begin DisplayDebugImgWindow(100,100); Canvas:=GetDebugCanvas; Canvas.Brush.COLOR:= clblack; Canvas.Pen.COLOR:= clwhite; Canvas.Font.Color:= clwhite; Canvas.Font.Name:= 'Verdana Bold'; Canvas.Font.Size:= 7; Canvas.Rectangle(0,0,100,100); Canvas.Brush.COLOR := clwhite; end; procedure DrawBox1; begin Canvas.MoveTo(5,5); Canvas.LineTo(95,5); Canvas.LineTo(95,95); Canvas.LineTo(5,95); Canvas.LineTo(5,5); end; procedure DrawBox2(intStage:integer); begin Canvas.MoveTo(5+intStage,5); Canvas.LineTo(5,95-intStage); Canvas.LineTo(95-intStage,95); Canvas.LineTo(95,5+intStage); Canvas.LineTo(5+intStage,5); end; begin repeat intCurrentStage := 0; repeat ResetDebug; DrawBox1; DrawBox2(intCurrentStage); DrawBox2(90-intCurrentStage); intCurrentStage := intCurrentStage + 1; wait(15); until(intCurrentStage=91); until(false); end.


Reply With Quote




im going to make something using canvas, never tried it yet before tho...