Caption в BitBtn!!!

[rivers]

Добрый день(вечер), начну с того что у меня возникла проблема при написании проекта, собственно она заключается в том, что когда мне нужно вывести какой нибудь длинный текст на кнопку, он у меня выводится в строчку! Тогда я полез в инспектор свойств кнопки, и нашел там свойство WordWarp, ставлю значение тру и компилирую проект заново... ,и все равно текст выводится в строчку . Ладно, хорошо. Тогда зашел я на сайт делфиворлд нашел компонент баттон нашел как сделать так чтобы текст выводился построчно, скомпилировал и все зашибись...
Но блин пол кода той самой функции выведения построчно я вообще не понимаю!!!
Тогда уж я решил обратиться сюда! Дело в том что мне нужно вывести длииный текст в несколько строк так чтобы все слова были видны на кнопке, И ПРИ этом мне необходимо сделать что бы я мог управлять переходом на другую строчку, ну например:
вот строчка: 1. Huhtamaki 227mm 2. Alcan 185mm
строчка выведется на мою кнопку это таким образом:
1. Huhtamaki
227mm 2.
Alcan 185mm
а мне нужно чтобы он вывел так:
1. Huhtamaki
227mm
2. Alcan
185mm
Как это сделать?? как управлять переносом текста?



Не стану создавать еще одной темы напишу прямо тут.
Еще одна проблема, но она другая, в том что мне нужно сделать так чтобы текст выводился на рисунке, а не рядом с ним, тот код который я скачал позволяет сделать это правда после того как компилятор проходит эту часть кода с кэпшеном больше ничего не получается сделать, то есть изменить шрифт, стиль, маштаб и тд.

[_Dmitry]

  BitBtn1.Caption:='Строка1'#13'Строка2'#13'Строка3'#13'Строка4';

[rivers]

Спасибо! А второй вопрос?

[rivers]

Еще есть вопросик по кнопкам
У меня есть допустим пять кнопок, человек вводит с клавиатуры число от 1 до 5, затем нада поменять название той кнопки, которое ввел пользователь.
Т.е. пользователь вводит 3, то нужно у 3-й кнопки поменять название.
Можно с помощью массива типа баттон
только блин есть маленький ньюанс, как в этот массив записать все кнопки не прописывая это в ручную...

[Alter]

Можно и без массива:

procedure TForm1.Button10Click(Sender: TObject);
const CntrlNam :string = 'Button%d';
var N :Integer;
    S :String;
begin
 N := StrToIntDef(Edit1.Text, 1);
 S := Edit2.Text;
 TButton( FindComponent(Format(CntrlNam, [N])) ).Caption := S;
end;

const CntrlNam :string = 'Button%d'; - шаблон имени компонента, если надо другой, то пишут часть имени контрола, до порядкового номера(вместо выделенного красным цветом текста).

[rivers]

А как быть с этим:

Не стану создавать еще одной темы напишу прямо тут.
Еще одна проблема, но она другая, в том что мне нужно сделать так чтобы текст на кнопку выводился на рисунке, а не рядом с ним, тот код который я скачал позволяет сделать это правда после того как компилятор проходит эту часть кода с кэпшеном больше ничего не получается сделать, то есть изменить шрифт, стиль, маштаб и тд.

[Alter]

Да, кое что добавлю к написаноному. При кнопках и компонентах разного типа, нужно изменить(то что красным) на тот тип контрола, к которому обращаются: TButton( FindComponent(Format(CntrlNam, [N])) ).Caption := S;

Проверить тип можно так:

if (FindComponent(Format(CntrlNam, [N])) is TBitButton) then {что-то делаем};

[Minimus]

Здесь лежат компоненты от JEDI (почти 25МБа - более 600 разных компонентов и классов)
JVCL334CompleteJCL1102-Build3072.zip
Честно говоря компонентов уйма. После установки на закладке политры jvButtons найди jvSpeedButton. Я думаю это то что тебе нужно.

ЗЫ: Чтобы установить все это добро нужно сделать следующее:
1. Распакуй архив в надежное место (в папку с дельфями, например).
2. Запусти jcl\jcl\install.bat
3. Запусти jvcl\install.bat
4. Enjoy

ЗЫ2:Компонентов действительно очень много!!!
ЗЫ3:Я ставил на D5 и D7 и D2006. На TurboDelphi не ставиться!

ЗЫ4:Точно не уверен, но вроде бы RxLib поставляется в комплекте,
так что если уже стоит RxLib - то могут возникнуть конфликты имен.

Зацени красотищу на картинке - и все без единой строчки кода.

[rivers]

Чувак спасибо конечно за компоненты, но я на твоем скрине вижу, что текс рядом с картинкой, а не на ней А мне нужно именно что бы текст выводился на картинку!!

[Stilet]

но я на твоем скрине вижу, что текс рядом с картинкой, а не на ней А мне нужно именно что бы текст выводился на картинку!!

А вот сердиться на помошь ну никак незачем.
Я бы на твоем месте так решал:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TBitBtn=class(Buttons.TBitBtn)
   procedure wp(var w:TWMPaint); message wm_paint;
  end;
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

{ TBitBtn }

procedure TBitBtn.wp(var w: TWMPaint);
var x,y:integer;    c:TCanvas;
begin
inherited;
c:=TCanvas.Create;
c.Handle:=GetDC(Handle);
c.Brush.Style:=bsClear;
 x:=Width div 2; y:=Height div 2;
c.TextOut(x,y,'Кнопка');

end;

end.

Здесь переписан обработчик закраски, и просто выведен текст.
Капшн кнопки занулен, вместо него в обработчике текст, он как раз и будет выведен на рисунке