vintage 1
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
[Code]
var
DirNameLabel: TLabel;
procedure InitializeWizard;
begin
DirNameLabel := TLabel.Create(WizardForm);
with DirNameLabel do begin
AutoSize:=False;
SetBounds(ScaleX(130), ScaleY(158), ScaleX(300), ScaleY(15));
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= 'Arial'
Font.Size:= 8;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold];
Caption := MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
Parent := WizardForm;
end;
end;
Думаю сам разберешься
|
Всего записей: 213 | Зарегистр. 03-04-2011 | Отправлено: 18:50 22-04-2011 | Исправлено: vintage 1, 18:51 22-04-2011 |
|
