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

Вниз

---|Ветка была без названия|---   Найти похожие ветки 

← →
IronHavvk   (2002-05-14 14:42) [480]

Я маленькая и слдкая девочка-конфеточка

---

← →
Кулюкин Олег   (2002-05-14 14:46) [481]

2 All
Вот и подражатели появились (IronHavvk).
Или провокаторы?

---

← →
Johnny Smith   (2002-05-14 14:48) [482]

2Кулюкин Олег © (14.05.02 14:46)
2 All
Вот и подражатели появились (IronHavvk).
Или провокаторы?
А может быть, наш Терминатор изгоиовлен из жидкого металла и превращается то в Ястреба, то в девочку, то...

---

← →
IronHawk   (2002-05-14 15:13) [483]

> Johnny Smith © (14.05.02 14:38)
> 2IronHawk © (14.05.02 13:14)
> Да нет, просто ты кое-кого уже возбуждать начал... Видать,
> в тебе углядели что-то девичье. :-))

Кто б говорил.......

> IronHavvk (14.05.02 14:42)
> Я маленькая и слдкая девочка-конфеточка

"Плогиатюга" ....

> Кулюкин Олег © (14.05.02 14:46)
> 2 All
> Вот и подражатели появились (IronHavvk).
> Или провокаторы?

Это подстрекатель, он вас всех ща "напосылает", а потом скажет что это я...

> Johnny Smith © (14.05.02 14:48)
> и превращается то в Ястреба, то в девочку, то...

Мне чужие ствойства некчему, так что это оставьте себе!

---

← →
Yakudza   (2002-05-14 15:24) [484]

>IronHawk © (14.05.02 15:13)
Да ладно... не стесняйся, мы люди современные - поймем :))

---

← →
IronHawk   (2002-05-14 15:48) [485]

> Yakudza © (14.05.02 15:24)
> >IronHawk © (14.05.02 15:13)
> Да ладно... не стесняйся, мы люди современные - поймем :))

На ся посмотри .... :-))) !

---

← →
Yakudza   (2002-05-14 16:16) [486]

>IronHawk © (14.05.02 15:48)
Как только заговорили на голубую тему, все только улыбаються и скромно кидают шуточные фразы, никто никому не грубит, не наезжает, все так тихо и спокойно :))))))))))))

Интерестно до чего эта ветка докатиться :))))

---

← →
IronHawk   (2002-05-14 16:26) [487]

> Yakudza © (14.05.02 16:16)
> >IronHawk © (14.05.02 15:48)
> Как только заговорили на голубую тему, все только улыбаються
> и скромно кидают шуточные фразы, никто никому не грубит,
> не наезжает, все так тихо и спокойно :))))))))))))
>
> Интерестно до чего эта ветка докатиться :))))

Ты небоясь, Вопрос ща и до тебя-спортсмена дойдёт, он те попку то .... :-))))))))

---

← →
Yakudza   (2002-05-14 16:33) [488]

>IronHawk © (14.05.02 16:26)
Ща блевану.. :)

---

← →
IronHawk   (2002-05-14 17:03) [489]

> Yakudza © (14.05.02 16:33)
> >IronHawk © (14.05.02 16:26)
> Ща блевану.. :)

Отож, прикинь, с кем приходиться общаться ... :-)

---

← →
limon   (2002-05-15 10:45) [490]

Ну все, нашли друзья общую тему... :-)))

---

← →
vopros   (2002-05-15 10:46) [491]

мужики что-то вы расслабились:))
Птицу застрелили что ли?

---

← →
IronHawk   (2002-05-15 10:46) [492]

Поскольку эта ветка самая активная :-))), и она в потрепаться, то сразу задам вопросы тут, поскольку они являються клонами, наиболее задаваемых вопросов:
1) Как при сворачивании приложения прятать её только в трей, с иконкой проекта по дефолту (той что принадлежит ехе-шнику), и по клику на иконке восстанавливать?
_________________
2) Как в RxRichEdit по клику на кнопке из одного, бросать картинку, в другой? (на форме 2, RxRichEdit1 и RxRichEdit2 соответственно, и буттон, надо по клику на буттон перекинуть картинку из RxRichEdit1 в RxRichEdit2)

.... заранее благодарен.

---

← →
Кулюкин Олег   (2002-05-15 11:05) [493]

2 IronHawk © (15.05.02 10:46)
Это вопросы или ради прикола?
Особенно про трей :)

---

← →
IronHawk   (2002-05-15 11:12) [494]

> Кулюкин Олег © (15.05.02 11:05)
> 2 IronHawk © (15.05.02 10:46)
> Это вопросы или ради прикола?
> Особенно про трей :)


Это таки вопросы!!!!
А про трей, я хотел бы узнать точно по вопросу, а то в FAQ и форумах, !конкретно! по этому вопросу ничё нет толком!

---

← →
Yakudza   (2002-05-15 11:33) [495]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
procedure NotifyIcon(var Msg : TMessage);message WM_USER + 100;
procedure OnMinimizeEvt(Sender : TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;
TrayIcon : TNotifyIconData;

implementation

{$R *.dfm}

procedure TForm1.OnMinimizeEvt(Sender : TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
end;

procedure TForm1.NotifyIcon(var Msg : TMessage);
begin
case Msg.LParam of
WM_LBUTTONDOWN:
begin
ShowWindow(Application.Handle,SW_SHOW);
Application.Restore;
end;
end;{case}
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
TrayIcon.cbSize := SizeOf(TrayIcon);
TrayIcon.Wnd := Form1.Handle;
TrayIcon.uID := 100;
TrayIcon.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
TrayIcon.uCallbackMessage := WM_USER + 100;
TrayIcon.hIcon := Application.Icon.Handle;
Shell_NotifyIcon(NIM_ADD,@TrayIcon);
Application.OnMinimize:= OnMinimizeEvt;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
end;

end.

---

← →
IronHawk   (2002-05-15 11:50) [496]

> Yakudza © (15.05.02 11:33)

У кого код украл ? :-)))
Кстати, кодец-то для Д6 !

---

← →
Yakudza   (2002-05-15 12:02) [497]

IronHawk © (15.05.02 11:50)

>У кого код украл ? :-)))
Больше тебе ничего не дам :)))

>Кстати, кодец-то для Д6 !
А какая тебе разница !?

---

← →
IronHawk   (2002-05-15 12:05) [498]

> Yakudza © (15.05.02 11:33)

Да, код-то НЕрабочий !

---

← →
IronHawk   (2002-05-15 12:14) [499]

> Yakudza © (15.05.02 12:02)
> IronHawk © (15.05.02 11:50)
>
> >У кого код украл ? :-)))
> Больше тебе ничего не дам :)))
>
> >Кстати, кодец-то для Д6 !
> А какая тебе разница !?

Разница дольшая, у меня Д5, и нет "Вариантс" !!!
По этому и не арбайтен кодец-то !

---

← →
Просто гость   (2002-05-15 12:18) [500]

Так убери Variants

---

← →
IronHawk   (2002-05-15 12:26) [501]

> Просто гость (15.05.02 12:18)
> Так убери Variants

Так я и убрал, за кого Вы меня держите, и получилось, что из-за этого код нерабочий, ели Японец не прогнал ещё где-то ....

---

← →
Просто гость   (2002-05-15 12:28) [502]

Ты будешь смеятся но все работает:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
procedure NotifyIcon(var Msg : TMessage);message WM_USER + 100;
procedure OnMinimizeEvt(Sender : TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;
TrayIcon : TNotifyIconData;

implementation

{$R *.dfm}

procedure TForm1.OnMinimizeEvt(Sender : TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
end;

procedure TForm1.NotifyIcon(var Msg : TMessage);
begin
case Msg.LParam of
WM_LBUTTONDOWN:
begin
ShowWindow(Application.Handle,SW_SHOW);
Application.Restore;
end;
end;{case}
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
TrayIcon.cbSize := SizeOf(TrayIcon);
TrayIcon.Wnd := Form1.Handle;
TrayIcon.uID := 100;
TrayIcon.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
TrayIcon.uCallbackMessage := WM_USER + 100;
TrayIcon.hIcon := Application.Icon.Handle;
Shell_NotifyIcon(NIM_ADD,@TrayIcon);
Application.OnMinimize:= OnMinimizeEvt;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
end;

end.

---

← →
Yakudza   (2002-05-15 12:33) [503]

>IronHawk © (15.05.02 12:26)
Cлушай, зачем тебе то Делфи, иди в космонавты :)))

---

← →
IronHawk   (2002-05-15 12:34) [504]

> Просто гость (15.05.02 12:28)
> Ты будешь смеятся но все работает:

Несмешно, у меня Д5 + СП2 под В2К, и НЕработает.
Ложиться в ТаскБар а в трее МА ! :-((((((

---

← →
IronHawk   (2002-05-15 12:39) [505]

> Yakudza © (15.05.02 12:33)
> >IronHawk © (15.05.02 12:26)
> Cлушай, зачем тебе то Делфи, иди в космонавты :)))

Тоже мне, програмист великий !

---

← →
Просто гость   (2002-05-15 12:47) [506]

>> IronHawk © (15.05.02 12:34)
Значит ты избранный :))

---

← →
IronHawk   (2002-05-15 12:59) [507]

> Просто гость (15.05.02 12:47)
> >> IronHawk © (15.05.02 12:34)
> Значит ты избранный :))

Да не в том дело, просто не сворачиваеться в Трай и всё тут ! :-(((

---

← →
Yakudza   (2002-05-15 13:54) [508]

>IronHawk © (15.05.02 12:59)

>Да не в том дело, просто не сворачиваеться в Трай и всё тут ! :-(((

Странно это....
Вообще-то прога никуда не сворачиваеться, она просто помещает иконку в трей, может у проги иконки нет(проверь) и там пустое место. А какая винда у тебя ?

---

← →
vopros   (2002-05-15 14:00) [509]

>Yakudza © (15.05.02 13:54)
У него винда уже давно своя написана. Видимо в каком-то модуле не до конца обнулил переменную...вот и вся проблема.

---

← →
IronHawk   (2002-05-15 14:56) [510]

> Yakudza © (15.05.02 13:54)

CM. IronHawk © (15.05.02 12:34)


> vopros © (15.05.02 14:00)
> >Yakudza © (15.05.02 13:54)
> У него винда уже давно своя написана. Видимо в каком-то
> модуле не до конца обнулил переменную...вот и вся проблема.

Дур....к ты!
И шутки твои дур....е!

---

← →
vopros   (2002-05-15 15:13) [511]

Обидел....ну обидел.Сладкий:)

---

← →
Yakudza   (2002-05-15 15:17) [512]

>vopros © (15.05.02 15:13)
>Обидел....ну обидел.Сладкий:)

Так ты что действительно голубой? :))

---

← →
IronHawk   (2002-05-15 15:27) [513]

> vopros © (15.05.02 15:13)
> Обидел....ну обидел.Сладкий:)

Недождёся.

> Yakudza © (15.05.02 15:17)

А ты думал... ессно он у нас п№;%:с :-)))

---

← →
vopros   (2002-05-15 15:44) [514]

Кто голубой?
Разве я люблю пол идентичный моему?
В своих грезах всегда представлял IronHawk как сексапильную девушку . Почему девушку? Глупая однако птичка.

---

← →
Song   (2002-05-15 15:59) [515]

2IronHawk © (15.05.02 14:56)
Если у Вас действительно проблема с треем и хотите с ней разобраться, сходите сюда:
http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1020241631

---

← →
Johnny Smith   (2002-05-15 15:59) [516]

2vopros © (15.05.02 15:44)
Согласен, логика у Хавка скорее женская... А давайте проверим!
А ну ка, дружище Хавк, скажи нам, какова вероятность встретить динозавра на улице? :-))

---

← →
Виктор Щербаков   (2002-05-15 16:10) [517]

Johnny Smith © (15.05.02 15:59)
Типа женщины скажут 0.5

---

← →
Yakudza   (2002-05-15 16:57) [518]

>vopros © (15.05.02 15:44)
Вот замутил :))))))))))))

---

← →
IronHawk   (2002-05-15 18:00) [519]

> Song © (15.05.02 15:59)
> 2IronHawk © (15.05.02 14:56)
> Если у Вас действительно проблема с треем и хотите с ней
> разобраться, сходите сюда:
> http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1020241631

Спасибо!
Всё гуд!

> Johnny Smith © (15.05.02 15:59)

Что, ветка ожила, так решили отметиться ?

---

← →
drpass   (2002-05-15 21:27) [520]

Ну вот, пока разбирались, какая у кого Delphi, и кто тут голубой, незаметно и за полтыщи перебрались. Молодцы ребята. Теперь - за 600. Чтобы тему поддержать, предлагаю дискуссию "у кого жена лесбиянка"

---

Страницы: 1 2 3 4 5 6 7 8 9 
10 11 12 13 14 15 16 17 18 
вся ветка

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

Наверх

Память: 1.56 MB
Время: 0.245 c