Search options (Page 1 of 15)

I had to delete graphics.dll because it tell me it's too large.

Yes you're right, I'm completely out of it now. This should be right.
Now I've discovered that the more I put Label2 in the center or on the right, the more it returns to the left by itself.

Now I have another problem that I can't understand: the title "RINGRAZIAMENTI" of the frmRingraziamenti form doesn't want to go to the center. It may certainly be a trivial thing but now I'm completely at a loss. I've been experimenting for half an hour to understand why.

Yes sparrow, I looked at the example but I don't understand what I need to change or add.
In the meantime I'm working on the small touches and the final lines, I'm more or less almost finished.

the idea of advancing the writing one at a time or all together is fantastic. Unfortunately, however, I will never be able to understand how to do it and implement them for tomorrow morning. Still, it was wonderful. Thank you.

Thanks sparrow,
I'll take a look at it now. In the meantime I have continued the program but I find myself in two situations that I cannot resolve.
The discussion is tomorrow morning

1) frmItaliano and frmStoria open without being colored blue like all the other windows

2) if I open any window and close it before the effects finish, then the main program (frmSommario) does not close. You have to close it with the task manager.

A thousand thanks.

Good morning everyone,
I'm moving forward with this project for my son's thesis. For work reasons I had to slow down the project a bit but now time is running out.
In the attachment I put the project as far as I have arrived.
What I would like to understand is how I could make a loop that continues until a certain control reaches a certain distance from the edge.
If you look in the project, just click on the first button in the first form (frmSummary), I put some writing with a slide effect. The problem is that by changing the length of the writing you have to do many tests to understand how many times the cycle must be repeated. I'm afraid that this way I won't be able to finish in time, the rehearsals take up a lot of time.
I tried to do something like this but it doesn't work:

begin
vi := 0;    
for vi := 250  do
      begin
        frmStoria.label5.Visible := True;
        frmStoria.label5.left := frmStoria.label5.left - 5;
        application.processmessages;
      end;
    until frmStoria.label5.left := 5;
   end;

Thanks to all and bye

Hi Derek and Sparrow,
my confusion arises from the fact that at the beginning the animations are started by the "form_onshow" event. Now it is clear that I must subsequently give the instructions using another control otherwise the animations start before the window opens. Thank you very much not only for the corrections but also for the explanations which I hope I will treasure.
I really don't know how to thank you. Now I proceed by continuing to add forms and buttons, hoping that I have understood correctly but I doubt that I will have to come back to ask you something else.

Hi Derek, Domenico and Sparrow,
I thank you immensely for all the suggestions and corrections which are always very welcome and which I will apply with great dedication.
Thanks derek for the idea of the titles remaining fixed. Indeed, without making them disappear, they always remain visible and can be read better. And for regars to Tommaso (Tommy).
Grazie Domenico per le icone, un tocco originale.
Thanks sparrow for the flicker reduction, that was another thing I would have asked for.

I understood, thanks!
In the meantime I tried to add a second label to scroll after the first. In this case the second does not slide but starts already fixed. As you can see from the project that I am attaching again.

Hi everyone,
Thanks to Derek's precious suggestions I managed to do something, at least what I wanted the program to do, at least for the initial part.
Then I got stuck on a problem that I can't solve: in a window I wanted labels to scroll, like the credits of a film. Let's say that the label scrolls but I don't see it scroll, that is, when the window opens the label is already in the position indicated without seeing the scrolling effect.
To do this I wrote:

procedure fmrRingraziamenti_OnShow (Sender: TObject; Action: string);
var vi: integer;

begin
  for vi := 1 to 100 do
    begin
      fmrRingraziamenti.lbFabio.top := fmrRingraziamenti.lbFabio.top -1;
      application.processmessages;
      sleep(10);
    end;
end;

The window is called "frmThanks". To open it I put a temporary button (Button1) in "frmSummary" which is also the opening form of the program.
Thanks to all.

Hi sparrow,
If I understand correctly, the program is used in a hospital to find out which antibiotic has been prescribed to the patient, I don't think it is used to carry out tests.