Style property missing in TsiLangCombo 6.0

[MainSoft]

Hi,

It seems that the Style property has not been published in TsiLangCombo 6.0.

So the DropDownCount property has become useless and I'm limited to a single line display of the language items. This is not what I want: I want all languages to be visible (within the limits set by DropDownCount).

Did I miss something?

[isiticov]

Hi,
Please either download latest version from our web site (it was updated at 20 June 2005 and contains a fix for drop-down problem) or modify sources of TsiLangCombo as following:

Code: Select all

procedure TsiLangCombo.MeasureItem(Index: Integer; var Height: Integer);
var
{$IFNDEF DELPHI6}
   CC: TControlCanvas;
{$ENDIF}   
   I: Integer;
begin
  if Assigned(OnMeasureItem) then      
    OnMeasureItem(Self, Index, Height)
  else
  begin
{$IFNDEF DELPHI6}
    I := Height;
    CC := TControlCanvas.Create;
    try
      CC.Control := Self;
      if CC.Handle <> 0 then
        I := CC.TextHeight('H') + 3;
    finally
      CC.Free;
    end;
{$ELSE}
    I := Canvas.TextHeight('H') + 3;
{$ENDIF}
    if I > Height then
      Height := I;
  end;
end;

Please let me know if this helps.

[isiticov]

But Style won't be published any case because TsiLangCombo always use OwnerDrawVariable style.

[MainSoft]

But Style won't be published any case because TsiLangCombo always use OwnerDrawVariable style.

That's what I call a quick reply . Thanks.

[MainSoft]

But Style won't be published any case because TsiLangCombo always use OwnerDrawVariable style.

The new version fixed the problem. Thanks.