easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V8.7

Browse Source 
V8.7
This commit is contained in:
f1iwq2
2024-04-06 16:54:03 +02:00
parent 1f2fa711ca
commit b10f983b0b
26 changed files with 4349 additions and 2848 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
UnitClock.pas
View File

@@ -342,18 +342,23 @@ begin
begin
LargeurFC:=250;
HauteurFC:=250;
OffsetXFC:=(formprinc.top+formPrinc.height)-FormClock.height-20;
OffsetYFC:=(formprinc.left+formPrinc.width)-formClock.width;
formclock.width:=LargeurFC;
formclock.height:=HauteurFC;
end;
formclock.top:=OffsetYFC;
formclock.left:=OffsetXFC;
formclock.width:=LargeurFC;
formclock.height:=HauteurFC;
OffsetYFC:=(formprinc.top+formPrinc.height)-FormClock.height-32;
OffsetXFC:=(formprinc.left+formPrinc.width)-formClock.width;
// écart entre fenetre principale et clock
DeltaFPCY:=OffsetYFC-formprinc.top;
DeltaFPCX:=OffsetXFC-formprinc.left;
formclock.top:=OffsetYFC;
formclock.left:=OffsetXFC;
end;
procedure TFormClock.FormCreate(Sender: TObject);
begin
// inits
@@ -462,6 +467,8 @@ begin
end;
procedure TFormClock.ButtonGHClick(Sender: TObject);
begin
formFicheHoraire.showModal;