Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Как на BitBtn переносить текст? 


DerZky   (2001-12-25 20:25) [0]

Вот отрывок кода.

{$R quest.res}
....
procedure r_w;
var
Buffer: array[0..255] of Char;
begin
LoadString(hInstance, 15, Buffer, 255);
BitBtn1.Caption := StrPas(Buffer);
end;


Как сделать чтобы на кнопке надпись, загружаемая из ресурса (если она больше кнопки) расположилась в несколько рядов?



MBo   (2001-12-26 08:00) [1]

procedure TForm1.BitBtn1Click(Sender: TObject);
var s,s1:string;
b:tbitmap;
i:integer;
begin
s:="1234567890abcdefghijkldjhgdfvb";
bitbtn1.caption:="";
b:=tbitmap.create;
b.width:=bitbtn1.width-16;//подбери для красоты
b.Canvas.font:=bitbtn1.Font;
s1:="";
i:=0;
while i<length(s) do begin
while (i<length(s)) and (b.canvas.textwidth(s1)<b.width) do begin
inc(i);
s1:=s1+s[i];
end;
bitbtn1.caption:=bitbtn1.caption+s1;
if i<length(s) then bitbtn1.caption:=bitbtn1.caption+#13;
s1:="";
end;
b.free;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.021 c
4-42597           Begemoth              2001-11-12 16:08  2002.01.14  
Можно ли с помощью API узнать имя локального компьютера?


3-42360           grab                  2001-12-11 14:13  2002.01.14  
заполнение БД данными из текстового файла


7-42576           РУС                   2001-09-25 22:14  2002.01.14  
Информация


1-42406           Stive                 2001-12-26 07:50  2002.01.14  
nmhttp1.post


1-42399           Andrey196             2001-12-26 16:24  2002.01.14  
Как найти файл в поддериктории