lkaknb.blogg.se

UnitX := (ClientWidth - 2*PaddingW) div 27 PaddingW + (Position+1)*UnitX, PaddingH + 4*UnitY) PaddingW + (Position+1)*UnitX, PaddingH + 2*UnitY) ĬolonRect2 := Rect(PaddingW + Position*UnitX, PaddingH + 3*UnitY, Procedure DrawColon(const Position: integer) ĬolonRect1 := Rect(PaddingW + Position*UnitX, PaddingH + UnitY, Procedure DrawDigit(const Position, Value: integer) (true, true, true, true, false, true, true)įunction TranslatePhysDigit(const PhysDigit: TPhysDigit const DX: integer const DY: integer = 0): TPhysDigit

(true, true, true, true, true, true, true), (true, true, true, false, false, false, false), (true, false, true, true, true, true, true), (true, false, true, true, false, true, true), (false, true, true, false, false, true, true), (true, true, true, true, false, false, true), (true, true, false, true, true, false, true), (false, true, true, false, false, false, false), (true, true, true, true, true, true, false), Since Warren P thinks it is too boring with a plain TLabel, this is how you can achieve a 'true' seven-segment digital clock: procedure TForm1.FormPaint(Sender: TObject)

Change Transparent to false, using the Object Inspector, if it isn't already.

In order for this effect to work, you need to change one of the properties of the TLabel control (design-time). Now you can do procedure TForm1.Timer1Timer(Sender: TObject) To make the clock more annoying, you can try this: in the interface of your form, add a private field called FHighlight, like this: TForm1 = class(TForm) This code will run once a second (the default interval for a TTimer, which is perfect for us, so we do not need to change it). Then write procedure TForm1.Timer1Timer(Sender: TObject) To get the time to update automatically, add a TTimer to your form, and double-click it (you can remove the button if you like). Drop a TLabel and a TButton on your form.ĭouble-click the button, and write procedure TForm1.Button1Click(Sender: TObject)