среда, 8 сентября 2010 г.

Пробное сообщение

Решил создать блог. Не потому, что теперь это модно. Просто иногда хочется делиться своими опытом и мыслями... а делиться у меня есть чем.
Итак, посмотрим, что из этого получится.

Шаг первый. Поколдовав с HTML, удалось настроить ширину блога (автоматическая ширина под размер окна обозревателя).
Шаг второй. Отдельный домен. Спасибо нашему админу, Тимуру :)
Шаг третий. Поковырявшись в CSS удалось скрыть панель навигации и настроить внешний вид.

Для начала хватит :)
P.S.: с HTML и CSS я на практике не знаком. Однако это не помешало мне проявить упорство и добиться результата без чьей-либо помощи...
Тестовый кусок кода
procedure TApplication.Run;
begin
  FRunning := True;
  try
    AddExitProc(DoneApplication);
    if FMainForm <> nil then
    begin
      case CmdShow of
        SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
        SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
      end;
      if FShowMainForm then
        if FMainForm.FWindowState = wsMinimized then
          Minimize else
          FMainForm.Visible := True;
      repeat
        try
          HandleMessage;
        except
          HandleException(Self);
        end;
      until Terminated;
    end;
  finally
    FRunning := False;
  end;
end;

1 коммент.:

Aleksey Timohin комментирует...

Приветствую. =)

занудный p.s. а кусок кода всё-таки лучше взять из какой-нибудь open source библиотеки. А то ещё юристы в Embarcadero обидятся.. =)

Отправить комментарий

.

.