Решил создать блог. Не потому, что теперь это модно. Просто иногда хочется делиться своими опытом и мыслями... а делиться у меня есть чем.
Итак, посмотрим, что из этого получится.
Шаг первый. Поколдовав с 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 коммент.:
Приветствую. =)
занудный p.s. а кусок кода всё-таки лучше взять из какой-нибудь open source библиотеки. А то ещё юристы в Embarcadero обидятся.. =)
Отправить комментарий