Вопрос Как добавить тень к тексту

[Shift85]

Всем привет.
Подскажите пожалуйста как добавить тень к тексту например как здесь.

 

[Shegorat]

Shift85
Ну можно так

 

[Shift85]

Shegorat, Как перенести текст на другую строчку?
И что делать если лейбелов не один а много?
Как создавать новые лейбелы используя данный модуль?

Заранее спасибо за ответ.

 

[Winst@n]

Shift85, Там есть же пример.

 

[Shift85]

Shift85, Там есть же пример.

Winst@n, Где?

 

[sergey3695]

Shift85, не там реально есть пример. я даже скачал.

 

[Shift85]

sergey3695, Покажи пример пожалуйста если много лейбелов.

 

[Хамик]

Shift85,

[Setup]
AppName=MyApp
AppVername=MyApp
DefaultDirname={pf}\MyApp

#include "TShadowLabel.iss"

[code]

procedure InitializeWizard();
begin
  CreateShadowLabel(WizardForm, 'Тестовый текст', 10, 320, 80, 20, '', 10, 1, [], clWhite, clBlack, True, False, taCenter);
  CreateShadowLabel(WizardForm, 'Тестовый текст 2', 10, 330, 80, 20, '', 10, -1, [], clWhite, clBlack, True, False, taCenter);
  CreateShadowLabel(WizardForm.WelcomePage, 'Тестовый текст 6', 30, 260, 180, 20, '', 10, -1, [], clWhite, clBlack, True, False, taCenter);
CreateShadowLabel(WizardForm, 'Тестовый текст 9', 170, 140, 5, 20, '', 110, -1, [], clWhite, clBlack, True, False, taCenter);
end;

 

[Shift85]

Хамик, Не так это один и тот же лейбл с разными надписями.
Если его скрыть скроется абсолютно все.

 

[nik1967]

Shift85,

Спойлер

[Setup]
AppName=MyApp
AppVername=MyApp
DefaultDirname={pf}\MyApp

#include "TShadowLabel.iss"

[code]
var
   MyLabel, MyLabel2: TShadowLabel;

procedure InitializeWizard();
begin
  MyLabel:= CreateShadowLabel(WizardForm, 'Тестовый текст', 10, 320, 80, 20, '', 12, 1, [], clBlack, clWhite, True, False, taCenter);
  MyLabel2:= CreateShadowLabel(WizardForm, 'Тестовый текст 2', 10, 340, 80, 20, '', 10, -1, [], clWhite, clBlack, True, False, taCenter);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome:
    begin
      ShowShadowLabel(MyLabel);
      ShowShadowLabel(MyLabel2);
    end;
    wpSelectDir:
    begin
      HideShadowLabel(MyLabel);
      HideShadowLabel(MyLabel2);
    end;
  end;
end;

Для наглядности ещё пример:

Спойлер

[Setup]
AppName=MyApp
AppVername=MyApp
DefaultDirname={pf}\MyApp

#include "TShadowLabel.iss"

[code]
var
   MyLabel1, MyLabel2: TShadowLabel;
   Button1, Button2: TButton;
   Btn_check1, Btn_check2: Boolean;
  
procedure OnChec1(Sender: TObject);
begin
   if Btn_check1 = false then begin
     Button1.Caption:= 'Show1';
     HideShadowLabel(MyLabel1);
     Btn_check1:= true;
   end else begin
     Button1.Caption:= 'Hide1';
     ShowShadowLabel(MyLabel1);
     Btn_check1:= false;
   end;
end;

procedure OnChec2(Sender: TObject);
begin
   if Btn_check2 = false then begin
     Button2.Caption:= 'Show2';
     HideShadowLabel(MyLabel2);
     Btn_check2:= true;
   end else begin
     Button2.Caption:= 'Hide2';
     ShowShadowLabel(MyLabel2);
     Btn_check2:= false;
   end;
end;

procedure InitializeWizard();
begin
  Button1:= TButton.Create(WizardForm);
  with Button1 do begin
    SetBounds(ScaleX(10),WizardForm.NextButton.Top,ScaleX(50),WizardForm.NextButton.Height);
    OnClick:= @OnChec1;
    Caption:= 'Hide1';
    Parent:= WizardForm;
  end;
  
  Button2:= TButton.Create(WizardForm);
  with Button2 do begin
    SetBounds(ScaleX(70),WizardForm.NextButton.Top,ScaleX(50),WizardForm.NextButton.Height);
    OnClick:= @OnChec2;
    Caption:= 'Hide2';
    Parent:= WizardForm;
  end;
  
  MyLabel1:= CreateShadowLabel(WizardForm, 'Тестовый текст', 170, 320, 80, 20, '', 12, 1, [], clBlack, clWhite, True, False, taCenter);
  MyLabel2:= CreateShadowLabel(WizardForm, 'Тестовый текст 2', 173, 340, 80, 20, '', 10, -1, [], clWhite, clBlack, True, False, taCenter);
  
   Btn_check1:=   false;
   Btn_check2:=   false;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome:
    begin
      Button1.Show;
      Button2.Show; 
        if Btn_check1 = false then ShowShadowLabel(MyLabel1);
        if Btn_check2 = false then ShowShadowLabel(MyLabel2);
    end;
    wpSelectDir:
    begin
      Button1.Hide;
      Button2.Hide;
      HideShadowLabel(MyLabel1);
      HideShadowLabel(MyLabel2);
    end;
  end;
end;

 

[Shift85]

nik1967, Как перенести текст на другую строку?
В [CustomMessages] так %n%n.
А здесь как?

 

[nik1967]

'Тестовый'+#13+'текст'

 

[Shift85]

nik1967, Как задать (Font.Name, Font.Style, Font.Size)

 

[vint56]

Shift85,
MyLabel:= CreateShadowLabel(WizardForm, 'Тестовый текст', 10, 320, 80, 20, 'Times New Roman', 17, 1, [fsItalic], clBlack, clWhite, True, False, taCenter);
Font.Name = Times New Roman
Font.Style = fsItalic
Font.Size = 17

 

[Shift85]

А как наложить тень вот сюда?
Или это не возможно.

 

[Winst@n]

Shift85,
В Эдит не получится вроде, а вот те что ниже лейблы можно переделать.

 

[Shift85]

В Эдит не получится вроде, а вот те что ниже лейблы можно переделать.

Winst@n, Можно примерчик.

 

[Winst@n]

Ну вот как то так. хотя обнова не работает )

 

[Shift85]

Ну вот как то так. хотя обнова не работает

Winst@n, В смысле не работает.

 

[sergey3695]

Winst@n, ну конечно. надо же Caption менять, а не создавать еще лейбл. Там вроде просто, два лейбла.
Залил чем пользуюсь. Shift85, кстати из таго же сталкера, что ты не удосужился посмотреть. + добавлено в модуле назначение события на нажатие.