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

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

V>держи из той же оперы, надеюсь пригодится:
V>(приятное поведение под пальчиками)

Похоже сюда скоро целыми проектами постить будут

А за код спасибо, разгребу потом

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

A_M>А за код спасибо, разгребу потом

А чего тут разгребать? Везде вместо самого UltraGrid используй приведенного наследника (ну, может, с точностью до названий неймспейсов и пр. шелухи).

Меня раздражает навигация UltraGrid по-умолчанию (вверх/вниз и ввправо-влево). Обрадовало, однако, что они выставили довольно-таки удобный и развитый интерфейс по управлению гридом, что позволяет придать ему практически произвольное поведение.

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


V>А чего тут разгребать? Везде вместо самого UltraGrid используй приведенного наследника (ну, может, с точностью до названий неймспейсов и пр. шелухи).

Это я уже понял

V>Меня раздражает навигация UltraGrid по-умолчанию (вверх/вниз и ввправо-влево). Обрадовало, однако, что они выставили довольно-таки удобный и развитый интерфейс по управлению гридом, что позволяет придать ему практически произвольное поведение.

Infragistics рулез однозначно, единственный его недостаток — платность

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

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

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

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

S>> Вот как раз в этот момент пришлось вспоминать молодость

P>[....]

P>Увидел это и тоже вспомнил молодость. Это FoxPro, кажется? Лет 15 назад трудно было найти человека, не написавшего хотя бы 20 строк на Лисе.

Clipper, хотя синтаксис общий xBase-ный

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

    if(lpDispatch)
    {
        lpDispatch->QueryInterface(IID_IHTMLDocument2, (void**)&lpHtmlDocument);
        lpDispatch->Release();
        IHTMLElement *pb=0;
        BSTR p=0;
        if(lpHtmlDocument)
        {
            lpHtmlDocument->get_body(&pb);
            lpHtmlDocument->Release();
            int sz=0;
            if(pb)
            {
                pb->get_innerHTML(&p);
                pb->Release();
                if(p)
                {
                    _bstr_t bs=p;
                    sz=bs.length();
                    char *S=new char[sz+2];
                    WideCharToMultiByte( CP_ACP, 0, p, sz,  S, sz+1, NULL, NULL );
                }
            }
        }
    }

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

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

    public TreeAResultSet( Connection aCon, String aBranch) {
        String sqlText = "";

        if ( "".equals( aBranch) || null == aBranch) {
            sqlText = "select type, desc_1, \"\" "+
                      "from agroup_type "+
                      "order by type ";
        } else {
            sqlText = "select agroup, "+
                             "desc_1, "+
                             "case "+
                               "when length(agroup) = 1 then type "+
                               "when length(agroup) > 1 then substring( agroup from 1 for length(agroup)-2) "+
                            "end "+
                      "from agroup "+
                      "where type = '"+aBranch+"'"+
                      "order by agroup ";
        }


        try {
            stmt = aCon.createStatement();
            rs = stmt.executeQuery( sqlText);
        } catch (Exception e){
            error = "ERROR: execution failed in query :<br>" +
                    sqlText + "<br> "+
                    "ERROR: " + e.getMessage();
            return;
        }
    }

Неплохая была идея, а уже прошло года два...

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

[Inno Setup|RemObjects Pascal Script]

function InitializeSetup(): Boolean;
begin
//если через ком.строку не передан аргумент - "запуск без проверок = /Check:No", то проверяем
 if(ExpandConstant('{param:Check|Yes}')='Yes') then
    Result:=CheckPreliminaries()
 else
    Result:=true;
end;

procedure InitializeWizard();
begin
if(CheckVS()=0) then
    //VS2005 установлена, можно продолжать
    ;//MsgBox('VS2005 is OK', mbInformation, MB_OK)
    else
    //если же VS2005 не установлена, то нужно сообщить об этом пользователю и сбросить флажок
    //с компонента с именем Integration
    begin
        wizardform.componentslist.checked[0]:= false;
        wizardform.componentslist.itemenabled[0]:= false;
        wizardform.SelectComponentsLabel.Caption:=ExpandConstant('{cm:ThereIsNoVS2005}');
    end
end;

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

// test lua
int test_lua( lua_State *L )
{
    /* get number of arguments */
    int n = lua_gettop(L);
    int i;
        float f[255];
    /* loop through each argument */
    for (i = 0; i < n; i++)
    {
        /* total the arguments */
        f[i] = lua_tonumber( L, i);
    }

        g_this->Sum( f, n );
    
    /* return the number of results */
    return 0;
}

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

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

A>

A>function outputToHtmlStream(text, stream)
A>{
A>    // создание объекта для вывода в поток в формате HTML
A>    var writer = new KodeksFormatHTMLWriter(stream);
A>    writer.setHyperlinkConverter(ConverterHyperlink);
A>    writer.setPictureConverter(ConvertImage);
    
A>    // создание объекта-итератора по тексту документа
A>    var parser = new KodeksFormatParser();
    
A>    // установка объекта-обработчика событий
A>    parser.setHandler(writer);
    
A>    // установка объекта-обработчика ошибок
A>    parser.setErrorHandler(writer);
    
A>    // запуск процесса вывода в HTML
A>    parser.parse(text);
A>}

A>

Код ни разу не понятен без комментариев

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

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

Индус?

Вот народу делать нечего

// Extended information. WinSock do not provide extended information
// so we need use MS Bluetooth API.
DeviceInfoSize := SizeOf(BLUETOOTH_DEVICE_INFO);
FillChar(DeviceInfo, DeviceInfoSize, 0);
with DeviceInfo do begin
  dwSize := DeviceInfoSize;
  Address.ullLong := ADevice.FBTAddress;
end;

if BluetoothGetDeviceInfo(0, DeviceInfo) = 0 then
  with ADevice do begin
    FAuthenticated := DeviceInfo.fAuthenticated;
    FConnected := DeviceInfo.fConnected;
    FClassOfDevice := DeviceInfo.ulClassofDevice;
    FRemembered := DeviceInfo.fRemembered;
    // If name was not recognized in WSAXXX then try retrive it here.
    if (Trim(FName) = '') or (FName = StrDeviceNameUnknown) then FName := string(WideString(DeviceInfo.szName));
    // This try/except block protect as when last seen date is
    // unspecified. So it is normal!!! Do not asks me anymore
    // why here is exception. Just read this comment and thinking a
    // little. And you undertand!!!
    try
      FLastSeen := SystemTimeToDateTime(DeviceInfo.stLastSeen);
    except
      FLastSeen := 0;
    end;
    // Read comment above!!!
    try
      FLastUsed := SystemTimeToDateTime(DeviceInfo.stLastUsed);
    except
      FLastUsed := 0
    end;
  end;

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

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

<?php
/*
 * Returns metadata and data for all lists.
 */

require_once(dirname(__FILE__) . '/../../_php/include.php');

$lists = $db->qarray("select l.id, l.name, l.sqlname, " .
        "    if((systype is not null) or (count(c.id) > 0), 1, 0) as used " .
        "from lists l " .
        "    left join obj_columns c on (c.datatype='lookup' and c.lookup_listid=l.id) " .
        "group by l.id " .
        "order by l.id");

$xlists = $response->rowset('lists'); 
foreach($lists as $list) {
    $xlists->addRow(array(
            'id' => $list['id'], 
            'name' => $list['name'], 
            'used' => $list['used']));
    $q = $db->query("select id, text from " . $list['sqlname'] . " order by sortorder");
    $response->rowset('list.' . $list['id'])->addDBRowset($q);
}

$response->outputXML("admin/GetLists.xsl");
?>

Складывается впечатление , что половина РСДН пишет парсеры XML а вторая данные в них сохранят...

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

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют
[ccode]
BOOST_AUTO_TEST_CASE(override_exception_test)
{
string hello = "Hello Africa!";
try
{
try
{
throw my_exception() << THIS_LOCATION() << status(123) << hello;
}
catch (my_exception& e) // catch and override
{
BOOST_CHECK(hello == e.what());
BOOST_CHECK(123 == e.status());
e << status(456); // override status
throw; // rethrow !!!
}
catch (...)
{
BOOST_ERROR("Unexpected exception");
}
BOOST_ERROR("Expected exception was not caught");
}
catch (const my_exception& e)
{
BOOST_CHECK(456 == e.status());
BOOST_CHECK(hello == e.what());
cout << e.location() << "Caught " << debug::type_name(e) << ": "
<< e.what() << "(status=") << e.status() << ")\n";
return;
}
catch (...)
{
BOOST_ERROR("Unexpected exception");
}
BOOST_ERROR("Expected exception was not caught");
}
[ccode]

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

M>Складывается впечатление , что половина РСДН пишет парсеры XML а вторая данные в них сохранят...

причем парсеры пишутся на с++ .

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

    class create_task_form(object):
        title = not_empty()&not_space()&has_len(max=50)
        summary = not_empty()&not_space()
        budget = is_int()
        deadline = is_datetime()

    @render('create-task.xsl', debug=True, cache=False)
    @validate_form(create_task_form)
    def do_create_task(self):
        fd = Form_Data(self.request.form)
        fe = Form_Errors(self.form_errors)
        
        if not hasattr(fd, 'tag'):
            setattr(fd, 'tag', set())        

        tasks = Tasks(self.session)
        projects = Projects(self.session)
        p = projects.get_project(owner=self.http_session.uid, id=fd.prj_id)

        if not p:
            raise PageNotFound()
        
        types = proxy_list(tasks.get_task_types())
        c = tasks.get_task_tags_categories()
        fallback = dict( form_data=fd, form_errors=fe, task_types=types,
                         project=proxy(p), categories=proxy_list(c, relations=('tags',)))

        if self.form_errors:
            return fallback

        tasks.create( project=p, title=fd.title, summary=fd.summary,
                      task_type_id=fd.task_type_id, budget=fd.budget, 
                      deadline=fd.deadline, tag_ids=tuple(fd.tag))

        raise HttpFound('/account/projects/details-t/%s'%p.id)

Здравствуйте, Константин Л., Вы писали:

КЛ>Здравствуйте, minorlogic, Вы писали:

M>>Складывается впечатление , что половина РСДН пишет парсеры XML а вторая данные в них сохранят...

КЛ>причем парсеры пишутся на с++ .

А сохраняют на C#

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

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


A>pAT91PS_PIOB->PIO_PER=AT91C_PIO_PB5|AT91C_PIO_PB28|AT91C_PIO_PB29;
A> pAT91PS_PIOA->PIO_PER=AT91C_PIO_PA23;
A> pAT91PS_PIOB->PIO_OER=AT91C_PIO_PB5;
A> pAT91PS_PIOB->PIO_PPUDR=AT91C_PIO_PB5;
A> pAT91PS_PIOB->PIO_CODR=AT91C_PIO_PB5;
A>Комментарии на русском к сожалению нечитаемы

Да ну зачем. И так все понятно !

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

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

Упс... А я и не знал, что они были последними.

// Соединяемся с базой
//------------------------------------------------------------------------------
procedure TCoTestServer.ConnectToDB(const Server, Base: WideString);
begin
  ConnMain.Connected := false;
  ConnMain.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=' + Base + ';Data Source=' + Server;
  ConnMain.Connected := true;
end;

// Выясняем Id по имени-обозначению-версии
//------------------------------------------------------------------------------
function TCoTestServer.GetIdVersion(const stType, stProduct,
  stVersion: WideString): OleVariant;
begin
  if (not ConnMain.Connected) then
    raise Exception.Create('ADO not connected');

  qMain.SQL.Text := 'SELECT sv.inId FROM stVersions sv ' +
                      'INNER JOIN stMain sm ' +
                        'INNER JOIN dsTypes dt ON (dt.InId = sm.InIdType) AND (dt.stName = ''' + stType + ''') ' +
                      'ON (sm.InId = sv.InIdMain) AND (sm.stKeyAttr = ''' + stProduct + ''') ' +
                    'WHERE (sv.stNumber = ''' + stVersion + ''')';
  qMain.Open;
  Result := qMain.Fields[0].AsInteger;
end;

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

private void btnTest_Click(object sender, System.EventArgs e)
{
    int res;
    string line = "Дамы и господа! Специальное предложение!";
    FprnM1C.FprnM45Class f = new FprnM1C.FprnM45Class();
    f.PortNumber = 1;
    f.BaudRate = 18;
    f.Password ="30";
    f.UseAccessPassword = true;
    f.DeviceEnabled = true;
    f.TestMode = true;
    f.CheckType = 1;
    f.TextWrap = 1;
    f.Mode = 1;
    f.SetMode();
    f.CheckType = 1;
    if(f.OpenCheck() != 0) MessageBox.Show("OpenCheck!");
    f.Caption = line;
    if(f.PrintString() != 0) MessageBox.Show("PrintString!");
    f.Name = "Плюшки";
    f.Price = 10.50;
    f.Quantity = 5;
    if(f.Registration() != 0) MessageBox.Show("Registration!");
    f.Name = "Плюшки2";
    f.Price = 10;
    f.Quantity = 1;
    if(f.Registration() != 0) MessageBox.Show("Registration!");
    f.TypeClose = 0;
    f.Summ = 100.0;
    res = f.Payment();
    if(res != 0) MessageBox.Show("Payment! " + res.ToString());
    f.TypeClose = 0;
    if(f.CloseCheck() != 0)  MessageBox.Show("CloseCheck!");
    f.PartialCut();
}