Shift85
Старожил
Всем привет.
Подскажите пожалуйста как добавить тень к тексту например как здесь.
Подскажите пожалуйста как добавить тень к тексту например как здесь.
Вложения
-
538.6 KB Просмотры: 68
Winst@n, Где?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;
[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;
Winst@n, Можно примерчик.В Эдит не получится вроде, а вот те что ниже лейблы можно переделать.
Winst@n, В смысле не работает.Ну вот как то так. хотя обнова не работает