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

Shift85

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

Вложения

Shift85

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

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

sergey3695

Ветеран
Модератор
Shift85, не там реально есть пример. я даже скачал. :D
 
Последнее редактирование:

Хамик

Старожил
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

Old Men
Проверенный
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.
А здесь как?
 

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
 

Winst@n

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

Winst@n

Участник
Проверенный
Ну вот как то так. хотя обнова не работает :))
 

Вложения

  • 3.1 KB Просмотры: 8
Последнее редактирование:

sergey3695

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

Вложения

Последнее редактирование:
Сверху