Здравствуйте, jhfrek, Вы писали:

M>>Тяжка судьба у модератора

J>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa

Зато известно что ему дарить на день варенья. Баян.

Здравствуйте, poilk, Вы писали:

P>Здравствуйте, Нахлобуч, Вы писали:

Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

P>

P>dim a[20];

P>

P>

Видимо — построчная оплата труда

Здравствуйте, Слава Шевцов, Вы писали:

J>>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa

СШ>Зато известно что ему дарить на день варенья. Баян.

А на второй год? Если снова баян, то это уже будет баян в квадрате

Здравствуйте, jhfrek, Вы писали:

J>>>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa

СШ>>Зато известно что ему дарить на день варенья. Баян.

J>А на второй год? Если снова баян, то это уже будет баян в квадрате

Это будет коллекция баянов

Здравствуйте, Слава Шевцов, Вы писали:

СШ>Здравствуйте, jhfrek, Вы писали:

J>>>>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa

СШ>>>Зато известно что ему дарить на день варенья. Баян.

J>>А на второй год? Если снова баян, то это уже будет баян в квадрате

СШ>Это будет коллекция баянов

Спорный вопрос.

Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.

Здравствуйте, jhfrek, Вы писали:

J>Здравствуйте, Слава Шевцов, Вы писали:

J>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.

А где вы такую красивую каску купили ?

Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

Здесь:

http://www.script-debugger.com/temp/anidog.zip

void CAniDogDlg::OnTimer(UINT nIDEvent)
{
CDialog::OnTimer(nIDEvent);

if (nIDEvent == UPD_TIMER)
{
int CurPict = m_CurPict;
m_CurPict++;
if (m_CurPict == m_pPictsCount)
m_CurPict = 0;

HRGN hrgn = CreateRectRgn(0, 0, 0, 0);
int regionType = GetWindowRgn(hrgn);
if (regionType != ERROR)
m_pPicts[CurPict].m_hRgn = hrgn;
else
MessageBox("Can't GetWindowRgn()!");

// assign region to window
SetWindowRgn(m_pPicts[m_CurPict].m_hRgn, TRUE);
Invalidate();
}
}

Здравствуйте, BiТ, Вы писали:

BiТ>Здравствуйте, jhfrek, Вы писали:

J>>Здравствуйте, Слава Шевцов, Вы писали:

J>>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.

BiТ>А где вы такую красивую каску купили ?

Почему каску? Это же героин — достаточно и половины дозы (с)

Здравствуйте, Andir, Вы писали:

<>

А это на чем?

Здравствуйте, Real 3L0, Вы писали:

R3>У тебя там ошибка.

Хде?

Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

    select     ItemId, 
        CatId,
        Type,
        OrderBy,
        ItemName,
        CellColor,
        BorderStyle,
        CheckStatusName,
        ResultStatusName,
        Repairs
    from (
        select     IC.tintOrder as OrderBy,
            IC.[Id] as ItemId,
            IC.[Id] as CatId,
            0 as Type,
            IC.vchName as ItemName,
            '#CCCCCC' as CellColor,
            'None' as BorderStyle,
            '' as CheckStatusName,
            '' as ResultStatusName,
            '' as Repairs
        from InspectCats IC
        inner join WorkOrderInspections WOI
        on WOI.[Id] = @InspectId
        and WOI.OrgId = @OrgId
        and IC.[InspectId] = WOI.InspectId
        and IC.OrgId = WOI.OrgId
        union all
         select     II.tintOrder as OrderBy,
            II.[Id] as ItemId,
            II.InspectCatId as CatId,
            1 as Type,
            II.vchDesc as ItemName,
            '#FFFFFF' as CellColor,
            'Solid' as BorderStyle,
            isnull(SC.vchDesc, 'Unchecked') as CheckStatusName,
            case when isnull(WII.ServiceCheckId, 0) <> 3
                    then ''
                    else isnull(SR.vchDesc, 'No result')
            end as ResultStatusName,
            isnull(t2.tbl_list, '') as Repairs
        from WorkOrderInspectItems WII
        inner join InspectionItems II
        on WII.WorkOrderInspectId = @InspectId
        and WII.WorkOrderId = @OrderId
        and WII.OrgId = @OrgId
        and WII.ItemId = II.[Id]
        and WII.OrgId = II.OrgId
        left outer join ServiceChecks SC
        on SC.[Id] = WII.ServiceCheckId
        left outer join ServiceResults SR
        on SR.[Id] = WII.ServiceResultId
        left outer join @tbl2 t2
        on WII.RepairItemId = t2.tbl_ItemId
        ) G
    order by G.[CatId], G.Type, G.OrderBy asc

Почему последние?

Здравствуйте, Jenyay, Вы писали:

J>Почему последние?

Как у вас с экстремальными видами спорта ?
Хотел "крайние" написать, но чего-то подумал, что недопоймут

BiТ>>А где вы такую красивую каску купили ?

J>Почему каску? Это же героин — достаточно и половины дозы (с)

Ну вот, а я только хотел спросить, откуда такая трава берется

Здравствуйте, Mamut, Вы писали:

BiТ>>>А где вы такую красивую каску купили ?

J>>Почему каску? Это же героин — достаточно и половины дозы (с)

M>Ну вот, а я только хотел спросить, откуда такая трава берется

Из Интернета, вестимо. Интернет-засисимость сильная штука. Что тут было, пока rsdn чинили...

Здравствуйте, Нахлобуч, Вы писали:

DaysConverter methodsFor: 'accessing'

dateHolder: aValueHolder
    dateHolder := aValueHolder 

DaysConverter methodsFor: 'converting'

convertDay: aDay
    | result |
    result := aDay - self date weekdayIndex + 1.
    result := result > self date daysInMonth
        ifTrue: [result - self date daysInMonth]
        ifFalse: [result].
    ^result <= 0
        ifTrue: [result + self date daysInPreviousMonth]
        ifFalse: [result].

dateFromDay: aDay
    | key date day |
    key := aDay - self date weekdayIndex + 1.
    date := dateHolder value.
    day := self convertDay: aDay.
    key <= 0 ifTrue: [^date asPreviousMonthDay: day].
    key > self date daysInMonth ifTrue: [^date asNextMonthDay: day].
    ^date asCurrentMonthDay: day. 

DaysConverter methodsFor: 'testing'

isMonthDay: aDay
    ^(self dateFromDay: aDay) monthIndex = self date monthIndex. 

DaysConverter methodsFor: 'private'

date
    ^Date monthNumber: dateHolder value monthIndex year: dateHolder value year

Здравствуйте, Poisson, Вы писали:

Это что за язык?

OK>Это что за язык?
Похоже на паскаль, я правда давно паскаля не видал...

Здравствуйте, oldskool, Вы писали:

O>[asm]

А где коментарии?

Здравствуйте, jhfrek, Вы писали:

J>>>А на второй год? Если снова баян, то это уже будет баян в квадрате

СШ>>Это будет коллекция баянов

J>Спорный вопрос.

J>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.

Это недопустимо. Если множество может содержать само себя, то такая система будет противоречива. Таким образом на очередной День рождения модератор может сойти с ума.