Обсуждение программирования на Delphi в конференции ru.delphi

* Скопировано в ru.delphi.chainik
Респект Вашему дому, All !

Есть ТМемо, в нем есть Вертикальный скроллинг. Если текста много то он включен, если текста мало, то он выключен. Требуется скрыть скроллинг если тексти мало, т.е. он выключен, и показать, если текста много, т.е. он должен быть включен. Как скрыть и показать туда не составляет. Более интересно как отловить enable этот скроллинг или disable.
У тебя классный почерк All, не забывай и пиши еще.
* Origin: Источник питания - холодильник. (2:5030/1519)


Здраствуйте All .

Как осуществить сабж программе блокнот:
Код прозрачности :

var
i, cavb : 0..255;
begin
if AlphaBlend=False then
begin
AlphaBlendValue:=255;
AlphaBlend:=True;
end;
cavb:=AlphaBlendValue;

for i := cavb downto 210 do
begin
AlphaBlendValue := i;
Application.ProcessMessages;
end



Пока.

* Origin: Hельзя починить то, что не сломано (2:5007/23.6)


Приветствую, Eugene!

Однажды, 17.08.2005 19:15:58, Eugene писал к Andrew O Shadoura
по поводу "Menu - Вставить контpол в меню".
















Если бы ;) Это обычное меню, я проверял! Hа него даже скины натягиваются, как
хрюшные, так и винблиндовские.

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: HPT is the best tosser! (2:450/143.25)


Риспект, All!

============================================
procedure TForm1.Button1Click(Sender: TObject);
var
n:word; //65535 max
begin
richresult.Clear; //TRichEdit
for n:=1 to count.Value do
begin
richresult.Lines.Append(randompass(edit1.Text, number.Value));
end;
end;
============================================
function randompass(symbols:string; num:byte):string;
var
i:byte;
begin
for i:=1 to num do //kolvo simvolov
begin
result:=result + symbols[(random(length(symbols)))+1];
end;
end;
=============================================

После выполнения Button1Click, в RichResult должен появляться список рандомно сгенерированых строк, а появляется чтото наподиобие:

_#random('123456789qwertyuiopasdfghjklzxcvbnm', 4)#_

kf8y
kf8y5srb
kf8y5srbbnxl
kf8y5srbbnxlpt7g
kf8y5srbbnxlpt7gqoc0
kf8y5srbbnxlpt7gqoc0cre1
kf8y5srbbnxlpt7gqoc0cre1isih

Тоесть с каждым шагом цикла n, в функции randompass надо очищать result

Вопрос: как?


Alexander

* Origin: Winamp: Hечего терять (2:4613/213.68)








Result := ''; {А ты думал как?}

* Origin: MTU-Intel ISP (2:5020/400)


[@] RealName Kostin Georgii
Hi, Alexandra

18 Авг 05 Alexandra Bondar что-то писал, а я отвечаю.


Описание пpотоколов+исходники её GNU клона...
Добpых снов, Alexandra...

* Origin: Всё написанное выше может оказаться ошибкой ;) (2:5054/76.30)


Как поживаете, Vlad ?

Мои бортовые системы запеленговали, что в Среда Август 17 2005 07:54, Vlad Filippov писал Roman Kanygin:





Гораздо раньше :)


C уважением, Каптиков Максим.
primary email - maximilliangreat [!at!] mail333 com_ WRK ICQ 28589O641
GPG fingerprint: 0809 4852 3F09 0B3C 14C4 1D46 F346 4775 0E16 9661
* Origin: Fly To The Blackness Of The Storm (2:5020/2174.777)




Hello Dima Trubenko, you wrote:



Для начала поизучайте SetLayeredWindowAttributes(). Когда разберетесь можно будет двигаться дальше.
Т.к. возможно придется внедняться в блокнот при помощи хуков. А может и не придется.

--
Всего хорошего, Слава.
deadbeef.narod.ru









Hello Alexander B. Bokovikov, you wrote:




Да вы что? :)
А чему равна пустая строка знаете? :)

И вообще, не вижу разницы между указателем и массивом (про С знаете?). Длинные строки и дин. массивы - сестры близнецы, у них даже похожий внутренний формат (а может и полностью одинаковый). "Dynamic-array variables are *implicitly pointers* and are managed by the same reference-counting technique used for long strings."



И вот так Pointer(s) = [@] s[1].

--
Всего хорошего, Слава.
deadbeef.narod.ru









Hello, Capticov!
You wrote to Vlad Filippov on Fri, 19 Aug 2005 02:03:13 +0400:









Они очень долго раскачивались. При включении объектов язык сразу назвали
Object Pascal, а при включении классов, нет чтобы сразу назвать Class
Pascal, что очень точно бы отражало смысл, так нет потребовалось 7 версий
для переименования и то победили маркетинговые соображения.

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)