Sizing

[etwoss]

Hi

I Have a labelEx where if fill TextEx.Text
As you can see the text is ok, sizing goes ok, but i want to keep my Button after the text.
The height value is not jet known at server time


Eric

[etwoss]

Hi

Tried to achieve it using two region in one, where the first region contains the LabelEx and the Second one the button.
Still i have to 'calculated' the complete height of the Frame to give the LabelEx the space to expand. If the height is not enough , it 'overwrites' the second one with the button.

Eric

[etwoss]

Hi

Found some solution now, also with two regions in one, but having the first region "ClipRegion" is True
So now i can scroll the text of the label in that region and the button always is at the bottom of the text

One problem still, can't get a Vertical scrollbar for the region of the LabelEx

Eric

[Alexander Bulei]

Hi Eric,

One problem still, can't get a Vertical scrollbar for the region of the LabelEx

property CGScrollStyle?

Best Regards.

[etwoss]

Hi

Solved it this way:

CGScrollStyle of the LabelEx is set to cgsbsVerticalAuto

Code: Select all

var
 S : TStringList;
begin
  S := TStringList.Create;
  try
    s.CommaText := Value;
    Height := 25 + Round(S.Count * 14.6); // calculate a little bit what the size could be

    if (Height > 400) then // max size of 400
      Height := 400;

    IWCGJQLabelQuestionDescription.Height := Height - IWCGJQRegionBottom.Height - 10; // recalculate the height of the Label
    IWCGJQLabelQuestionDescription.AutoSize := True; // Now set AutoSize to true
  finally
    FreeAndNil(s);
  end;

  IWCGJQLabelQuestionDescription.TextEx.Text :=
    StringReplace(Value, ''#$D#$A'', '<BR>', [rfReplaceAll]);



[Alexander Bulei]

Hi Eric,

Thanks for sharing the solution

BR