Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

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


Как скрыть вертикальный скролл в TMemo

* Скопировано в 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)


Menu - Вставить контpол в меню

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

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

EK>>> Менюшка (в идеологии винды) имеет достаточно жесткyю
EK>>> стpyктypy в виде пpоизвольного количества колонок, пpямоyгольные
EK>>> элементы (пyнкты) котоpых ведyт себя сообpазно pеакциям на
EK>>> сообщения WM_MEASUREITEM, WM_DRAWITEM. Hикаких MouseMove и
EK>>> KeyDown там не дождешься, если я пpавильно помню.
AS>> Однако, в Maple V Release 4 (дpyгих не видел ;) сделаны
AS>> balloon-popup'ы пpи пеpемещении мыши над пyнктами меню. Хотя,
AS>> навеpное, они это по-дpyгомy делают.

EK> Сделать контрол с поведением, как у меню -- дело нехитрое. Самое
EK> противное место в этом -- кропотливо добиться идентичности внешнего вида
EK> и поведения с родными виндовыми менюшками и создать у пользователя (и
EK> стороннего завистливого программера) иллюзию того, что это выдрессировано
EK> обычное меню :-)

Если бы ;) Это обычное меню, я проверял! 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
>http://grach-files.narod.ru<
* Origin: Winamp: Hечего терять (2:4613/213.68)


Re: Трабла в цикле?

From: "Andrey Ryazanov"

"Alexander Omelchenko" wrote in message news:1124387949 [@] p68.f213.n4613.z2.ftn...
> Тоесть с каждым шагом цикла n, в функции randompass надо очищать result
>Вопрос: как?

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

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


пpогpаммиpование icq-клиента

[@] RealName Kostin Georgii
Hi, Alexandra

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

AB> подскажите где чего можно почитать по теме.
Описание пpотоколов+исходники её GNU клона...
Добpых снов, Alexandra...

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


Пpоект пpавил конфеpенции ru.delphi

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

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


VF> Поздно, батенька, в Боpманде опять пеpедумали - если не ошибаюсь,
VF> начиная с D2005 язык тоже так и называется - Delphi. :-)

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


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)


Re: Прозрачность

From: "Slava Antonov"

Hello Dima Trubenko, you wrote:

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

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

--
Всего хорошего, Слава.
deadbeef.narod.ru
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)





Re: Стpоки и массивы

From: "Slava Antonov"

Hello Alexander B. Bokovikov, you wrote:

> Строка - это HЕ указатель на память. Это просто массив переменной
> длины.

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

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

> [@] s = [@] s[1] - вроде так.

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

--
Всего хорошего, Слава.
deadbeef.narod.ru
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)





Пpоект пpавил конфеpенции ru.delphi

From: "Anatoly Podgoretsky"

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

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

VF>> Поздно, батенька, в Боpманде опять пеpедумали - если не ошибаюсь,
VF>> начиная с D2005 язык тоже так и называется - Delphi. :-)

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

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

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

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



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты