[Denis]

имел виду что вставить картинку из WebBrowser1 в заголовок sPageControl

[Denis]

Сорри просто чистил незаметил что удалил нужные файлы.
Задача решена

[Denis]

QUOTE (Torbins @ Dec 1 2009, 08:01 PM)

Canvas позволяет вычислить длину текста, ну а дальше – дело техники:

CODE

function TruncCaption(Text: String; NeedWidth: Integer; Canvas: TCanvas): string;
var
  NewTextW: Integer;
begin
  NewTextW := Round(length(Text) * (NeedWidth/Canvas.TextWidth(Text))) – 3;
  Result := Copy(Text, 1, NewTextW) + '…';
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  r: TRect;
begin
  r := PageControl1.TabRect(TabSheet1.TabIndex);
  TabSheet1.Caption := TruncCaption('sdgfgdfgdfgsdgsdfgdgfdgdfgdfg', r.Right-r.Left, PageControl1.Canvas);
end;

Спосибо большое всё работает.

Впринципе я сделал так.

QUOTE

procedure TBrowser.UpdateAddress;
var
WB: TEmbeddedWB;
r: TRect;
begin
WB := GetActiveEWB;
if Assigned(W:cool: then
begin
IEAddress1.EmbeddedWB := WB;
IEAddress1.Text := WB.LocationURL;
r := sPageControl1.TabRect(sPageControl1.ActivePage.TabIndex);
sPageControl1.ActivePage.Caption := TruncCaption(WB.LocationName, r.Right-r.Left, sPageControl1.Canvas);
end;
end;

[Denis]

Подскажите пожалуйста как задать размер передоваемого названия.
Напремер TabSheet страка названия 130,а надо чтобы название было размером примерно 120 и после если название невлазит писало пару точек.
Код испльзую такой:

QUOTE

PageControl1.ActivePage.Caption := WB.LocationName;

Полный код

QUOTE

procedure TForm1.UpdateAddress;
var
 WB: TEmbeddedWB;
begin
 WB := GetActiveEWB;
 if Assigned(W:cool: then
 begin
   IEAddress1.EmbeddedWB := WB;
   IEAddress1.Text := WB.LocationURL;
   PageControl1.ActivePage.Caption := WB.LocationName;
 end;
end;

[Author]

Posts