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

V9.76

Browse Source 
V9.76
This commit is contained in:
f1iwq2
2025-01-17 11:43:15 +01:00
parent 95cf06b007
commit e8b0207e63
25 changed files with 1960 additions and 752 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
UnitConfigCellTCO.pas
View File

@@ -1254,6 +1254,7 @@ begin
if clicTCO then exit;
val(EditParam1.Text,i,erreur);
if erreur<>0 then exit;
if (i>100) or (i<1) then begin i:=1; EditParam1.Text:='1';end;
tco[IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].adresse:=i;
Affiche_cellule(IndexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]);
end;
@@ -1280,7 +1281,7 @@ begin
end;
// dessine les icones et le texte dans la listbox
// dessine les icones et le texte dans la listboxAction
procedure TFormConfCellTCO.ListBoxActionDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
@@ -1293,13 +1294,11 @@ begin
val(ItemText,i,erreur);
Delete(ItemText,1,erreur-1);
Canvas.Fillrect(Rect);
ImageListIcones.Draw(Canvas, Rect.Left, Rect.Top, i);
Canvas.Textout(Rect.Left + ImageListIcones.Width + 2, Rect.Top, ItemText);
ImageListIcones.Draw(Canvas,Rect.Left,Rect.Top,i);
Canvas.Textout(Rect.Left+ImageListIcones.Width+2, Rect.Top, ItemText);
end;
end;
procedure TFormConfCellTCO.EditCantonExit(Sender: TObject);
var NumC,i,erreur :integer;
trouve : boolean;