• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 184
  • Last Modified:

points for geobul

thanks :)

i have some more for you when they give em me.
0
inthe
Asked:
inthe
1 Solution
 
geobulCommented:
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

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now