Hi experts,
I'd like to show 1000 runtime created labels each of 20 to 100 pixel wide on a panel which is 1000 pixel wide. The labels are organized in one line side by side. The same time I can see only some of labels. How can I scroll soft this content to the needed label? I use D6. Working solution is preferable.
wbr
kacor
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Okay,
I hope you use an Array of TLabel for that. So you might do something like:
interface....
[...]
var Offset: Integer;
var Speed: Integer; // Init with 1 or 2 in Form.Create or wherever
[...]
implementation;
[...]
// This creates the one line of Labels...
function TForm1.Move(Offs: Integer): Integer;
var i: Integer;
tempW: Integer;
Space: Integer;
begin
tempW := 0;
Space := 5; // Space between the Labels
for i := 0 to 999 do begin // 999 would be your Label Count
Labels[i].Left := Offs + tempW;
tempW := tempW + Labels[i].Width + Space;
end;
result := tempW - Space;
end;
procedure TForm1.Timer1Timer(Sender:
var W: Integer;
begin
W := Move(Offset);
// Now change direction, if we are out of the left screen
If ((Offset + W < 0) And (Speed > 0)) then begin
Speed := Speed * (-1);
end;
// Change direction, if we are out of the right screen
if ((Offset > Panel1.Width) And (Speed < 0)) then begin
Speed := Speed * (-1);
end;
// Move...
Offset := Offset - Speed; // Move to left
end;
place scrollboxon a panel and PaintBox on a scrollbox and
procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBox1.HorzScrollBar.T
end;
procedure TForm1.PaintBox1Paint(Send
var
i: integer;
txt: string;
x: integer;
w: integer;
begin
x := 0;
for i := 1 to 1000 do
begin
txt := 'A'+IntToStr(i) + ' ';
w := PaintBox1.Canvas.TextWidth
PaintBox1.Canvas.TextOut(x
x := x + w;
end;
PaintBox1.Width := x;
end;
Business Accounts
Answer for Membership
by: MFriesePosted on 2004-12-06 at 05:36:22ID: 12753781
Use a TTimer, set the Interval to 40 for having 25 frames per second later on (that should be smooth).
In the timer function, set the Left-Value of each label to -1 or -2. Try out, which speed you prefer.
When you create the labels on runtime, you should position them correctly (I think you already did that).
That should work.
If you get problems with flickering, then tell me...