Issue with the display of SpinEdit.value in a Label.caption
lazarus / 21-General

----------------------------------------------------------------------
Clemensch · 2021-03-09 21:31

Hello everybody,

as pointed out in the subject I have an issue with the showing of the
SpinEdit.value in a Label.caption.
When I click on it for the first 2 times everything goes fine but then
it stops advancing and also continues after 10 presses and then
completely stops advancing.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.SpinEdit1Change(Sender: TObject);var Molar:
double;begin Molar:=  SpinEdit1.value+ SpinEdit2.value; 
Label2.caption:= FloatToStr(Molar);end;
I suspect that it might have something to do with this lines of code
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  procedure
ProcessValue(var AMerke: String; AValue: integer; APrefix:String); 
 begin     if AValue<=0 then       AMerke := ''     else     begin   
  if AValue=1 then         AMerke := APrefix       else         AMerke
:= APrefix + AValue.ToString;     end;   end;   and
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  
 procedure TForm2.SpinEdit1Change(Sender: TObject);       begin      
 ProcessValue(Merke1, SpinEdit1.Value, 'H');          Label1.Caption
:= Merke1+ Merke2       end;       procedure
TForm2.SpinEdit1Change(Sender: TObject);       begin       
 ProcessValue(Merke2, SpinEdit2.Value, 'He');          Label1.Caption
:= Merke1+ Merke2       end;    
kind regards
Clemens

----------------------------------------------------------------------
Bart · 2021-03-09 21:43

Please attach a sampleproject.
Your code shows 2 event handlers for the same spinedit (in TForm2),
that can never compile.

Bart

----------------------------------------------------------------------
Clemensch · 2021-03-09 22:06

I can send you my whole program but due to it being rather big in size
I'll put it on my google drive.
https://drive.google.com/drive/folders/1zdzqoA7Km4uEG2tlsy1b_lvEE64MpP
x7?usp=sharing

Please do not mind that it's a bit messy. I'll organize the whole code
later.

----------------------------------------------------------------------
Clemensch · 2021-03-10 05:48

Quote from: Bart on March 09, 2021, 10:43:47 pmYour code shows 2 event
handlers for the same spinedit (in TForm2), that can never compile.
yes I noticed that too  that was just a small typing error I had while
writing the code down in this post.

----------------------------------------------------------------------
dseligo · 2021-03-10 08:20

You change Label2 caption in Label1's OnChangeBounds event. This event
fires when size of label is changed and that is the reason why Label2
isn't updated.
Move code from Label1ChangeBounds method to SpinEdit1Change and
SpinEdit2Change methods:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm2.SpinEdit1Change(Sender: TObject);begin  ProcessValue(Merke1,
SpinEdit1.Value, 'H');   Label1.Caption := Merke1+ Merke2+ Merke3+
Merke4+ Merke5+ Merke6+ Merke7 +Merke8 +Merke9 +Merke10+ Merke11+
Merke12+ Merke13+ Merke14+ Merke15+ Merke16+ Merke17+ Merke18+
Merke19+ Merke20+ Merke21+Merke22+ Merke23+ Merke24+ Merke25+ Merke26+
Merke27+Merke28+ Merke29+Merke30+ Merke31+ Merke32+ Merke33+ Merke34+
Merke35+ Merke36+ Merke37+ Merke38 +Merke39+ Merke40+ Merke41+
Merke42+Merke43+ Merke44+ Merke45+ Merke46+Merke47+ Merke48+ Merke49+
Merke50+ Merke51+ Merke52+ Merke53+ Merke54+ Merke55+ Merke56+
Merke57+ Merke58+ Merke59+Merke60+ Merke61+ Merke62+Merke63+Merke64+
Merke65+ Merke66+ Merke67+ Merke68+ Merke69+ Merke70+ Merke71+
Merke72+ Merke73+ Merke74+ Merke75+ Merke76+ Merke77+ Merke78+
Merke79+ Merke80+ Merke81+ Merke82+ Merke83+Merke84+
Merke85+Merke86+Merke87+Merke88 +Merke89+ Merke90+ Merke91+Merke92+
Merke93+Merke94+Merke95+ Merke96+ Merke97+ Merke98+ Merke99+
Merke100+Merke101+ Merke102+ Merke103+Merke104+ Merke105+ Merke106+
Merke107+ Merke108+ Merke109+ Merke110+Merke111+Merke112+Merke113+Merk
e114+Merke115+Merke116+Merke117+Merke118;  Molar:=SpinEdit1.value+
SpinEdit2.value;  Label2.caption:=FloatToStr(Molar);end;
and:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm2.SpinEdit2Change(Sender: TObject);begin  ProcessValue(Merke2,
SpinEdit2.Value, 'He');   Label1.Caption := Merke1+ Merke2+ Merke3+
Merke4+ Merke5+ Merke6+ Merke7 +Merke8 +Merke9 +Merke10+ Merke11+
Merke12+ Merke13+ Merke14+ Merke15+ Merke16+ Merke17+ Merke18+
Merke19+ Merke20+ Merke21+Merke22+ Merke23+ Merke24+ Merke25+ Merke26+
Merke27+Merke28+ Merke29+Merke30+ Merke31+ Merke32+ Merke33+ Merke34+
Merke35+ Merke36+ Merke37+ Merke38 +Merke39+ Merke40+ Merke41+
Merke42+Merke43+ Merke44+ Merke45+ Merke46+Merke47+ Merke48+ Merke49+
Merke50+ Merke51+ Merke52+ Merke53+ Merke54+ Merke55+ Merke56+
Merke57+ Merke58+ Merke59+Merke60+ Merke61+ Merke62+Merke63+Merke64+
Merke65+ Merke66+ Merke67+ Merke68+ Merke69+ Merke70+ Merke71+
Merke72+ Merke73+ Merke74+ Merke75+ Merke76+ Merke77+ Merke78+
Merke79+ Merke80+ Merke81+ Merke82+ Merke83+Merke84+
Merke85+Merke86+Merke87+Merke88 +Merke89+ Merke90+ Merke91+Merke92+
Merke93+Merke94+Merke95+ Merke96+ Merke97+ Merke98+ Merke99+
Merke100+Merke101+ Merke102+ Merke103+Merke104+ Merke105+ Merke106+
Merke107+ Merke108+ Merke109+ Merke110+Merke111+Merke112+Merke113+Merk
e114+Merke115+Merke116+Merke117+Merke118;  Molar:=SpinEdit1.value+
SpinEdit2.value;  Label2.caption:=FloatToStr(Molar);end;
Remove Label1ChangeBounds method.