points for geobul

thanks :)

i have some more for you when they give em me.
LVL 17
intheAsked:
Who is Participating?
 
geobulConnect With a Mentor Commented:
Hi,
Don't worry. That's more than enough. It was so interesting. Thank you very much :-)))

P.S. I've found a visualization problem when editing a number from two digit number to one. The following is the corrected part. It is located at the end of procedure TForm1.ImagePress(Sender: TObject);
Just replace the old part of code with this one:

             if InputQuery('Edit cell(' + IntToStr(i)+','+IntToStr(j)+') Type:'+CellType, 'Enter new number', NewNumber) then begin
               try
                 jPos := Length(IntToStr(Number));
                 Number := StrToInt(NewNumber);
                 jPos := jPos - Length(IntToStr(Number));
                 if jPos > 0 then begin
                   CellName := CellType + IntToStr(Number)+Format('%-'+IntToStr(jPos * 2)+'s',[' ']);
                 end else begin
                   CellName := CellType + IntToStr(Number);
                 end;
                 Canvas.TextOut(1,1,CellName)
               except
                 ShowMessage('Enter a number next time !');
                 bmp.Free;
                 exit;
               end;
             end;
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.