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

V7.0

Browse Source
This commit is contained in:
f1iwq2
2023-07-30 14:28:21 +02:00
parent de401c95d7
commit c688f36e4e
11 changed files with 1346 additions and 261 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
UnitTCO.pas
View File

@@ -5215,7 +5215,7 @@ begin
begin
if affevt then affiche('Affiche_tco',clLime);
if pImageTCO=nil then exit;
DimX:=LargeurCell*NbreCellX;
DimX:=LargeurCell*NbreCellX;
DimY:=HauteurCell*NbreCellY;
// DimX DimY maxi 8191 pixels pour les bitmap
if (dimX>8192) then begin Affiche('Espace TCO X trop grand',clred); exit; end;
@@ -5243,9 +5243,7 @@ begin
//formTCO.ScrollBox.Width:=DimX;
calcul_reduction(frxGlob,fryGlob,LargeurCell,HauteurCell,ZoomMax,ZoomMax);
calcul_reduction(frxGlob,fryGlob,LargeurCell,HauteurCell,ZoomMax,ZoomMax);
//Affiche(formatfloat('0.000000',frxGlob),clyellow);
//effacer tout
@@ -5293,7 +5291,6 @@ begin
if entoure then
begin
Entoure_cell(Xentoure,Yentoure);
end;
end;
end;