[PhoeniX]

Всё сделал, проверяй, комментируй, советуй... Координируй, вопщем )

[PhoeniX]

Сообщение от lmikle

Да и мини-чат я бы удалил... не смотрится он в таком дизайне. Ну или, хотя бы, смыйлики в нем отключи.

Смайлы сменил на стандартные...

Кстати, с тебя (и с остальных) креатив:
1. Нормальная "информация о сайте".
2. "Пофлудить" в F.A.Q.

[lmikle]

Вот п.2 - не надо. Лучше как-раз придумать нормальные вопросы и ответы к ним. флудят пусть в гостевой книге. А фак бы вообще закрыть на запись для немодераторов. Ща подумаю на тему какие группы вопросов/ответов можно было бы положить в фак. Давайте отучаться думать как хацкеры. Делаем вполне серьезный проект, надо соответствовать (даже если сам прект в большей степени для собственного развлечения - иногда через такие проекты приходят очень интересные предложения).

[PhoeniX]

В факе может задать вопрос любой юзер, но опубликован он будет уже с ответом после проверки модератором. По-моему, это логично...

"Пофлудить" - не зря упомянулось в кавычках. Я имел в виду, наполнить раздел

Пы.Сы. Подумай ещё раз над предложением поднять SVN на моём компе-сервере.

[PhoeniX]

Кстати, я вспомнил ещё одну кодировку, про которую мы забыли - OEM...

[lmikle]

Сообщение от DJ PhoeniX

Кстати, я вспомнил ещё одну кодировку, про которую мы забыли - OEM...

Потом доделаем. Там еще фигня в том, что файл в такой кодировке никак не определяется. Т.е. структурно в файле нет сигнатуры, что это кодировка OEM. Будем думать. В конце-концов всегда можно сделать еще пункт меню "Открыть как...".

[lmikle]

Выложены новые исходники блокнота из WinApp Replace Pack.
Выложены только для разработчиков и сами знаете где

Исходники включают:
- сам блокнот (доделал изменение настроек шрифта в редакторе);
- заготовку для справки (всего 2 страницы, одна написана);
- Установщик (нужно будет приделать отдельную иконку к установщику + добавить ассоциацию файлов - просто было влом с нуля все прописывать, потом добавим, там не сложно).

Феникс, где поиск и замена???
И кто-то обещал разобраться с добавлением контрола в стандартный диалог сохранения файла...

[PhoeniX]

Откомментил на сайте. Ща всё будет, про контрол не уверен, но поиск к завтрашнему утру гарантирую.

[PhoeniX]

Залил небольшую доработку. Imikle, Посмотри на сайте, отпишись.

[lmikle]

Посмотрел.
В общем - хорошо. Попробовал попользовать - есть одно замечание.
Давай диалог не закрывать - так удобнее будет.

[lmikle]

поиск вверх/вниз:

Код:

type
  TFindDirection = (fdUp, fdDown);

function FindText(APattern, AText : String;
                  APosition : Integer;
                  ADirection : TFindDirection;
                  ACaseSensitive : Boolean) : Integer;
var
  FStep : Integer;
  FFinish : Integer;
  FPosition : Integer;
  FPatternLen : Integer;
begin
  Result := -1;
  if ADirection = fdUp
    Then
      Begin
        FStep := -1;
        FFinish := 0;
      End
    Else
      Begin
        FStep := 1;
        FFinish := Length(AText);
      End;
  If ACaseSensitive Then APattern := AnsiUpperCase(APattern);
  FPosition := APosition;
  FPatternLen := Length(APattern);
  While FPosition <> FFinish Do
    Begin
      If ACaseSensitive
        Then
          Begin
            If AText[FPosition] = APattern[1] Then
              Begin
                If AnsiCompareStr(Copy(AText,FPosition,FPatternLen),APattern) = 0 Then
                  Begin
                    Result := FPosition;
                    Break;
                  End;
              End;
          End
        Else
          Begin
            If AnsiUpperCase(AText[FPosition]) = APattern[1] Then
              Begin
                If AnsiCompareText(Copy(AText,FPosition,FPatternLen),APattern) = 0 Then
                  Begin
                    Result := FPosition;
                    Break;
                  End;
              End;
          End;
      FPosition := FPosition + FStep;
    End;
end;        

[PhoeniX]

О, кул. Ща буду прикручивать.

[lmikle]

Ну ты понял, если ничего не нашла, то возвращает -1, если нашла - то индекс. Возможно, для убыстрения старта, лучше переделать на PChar, хотя тут надо мерять - может эффекта уже и не будет.

[PhoeniX]

Ну так щас прикручу, и померяй - поищи пару байт в iso-образе DVD с фильмом

[PhoeniX]

Небольшая поправка, которая стоила мне получаса секса с кодом:

Код:

  If not ACaseSensitive Then APattern := AnsiUpperCase(APattern);