Страница 4 из 5

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 15:42:02
Mr.Smart
Данный вид тулбара, насколько я знаю относится к виджетам cocoa. В данный момент полноценной поддержки данных виджетов нет.

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 15:53:08
dangreen
ну где посмотреть эти виджиты хотябы?

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 15:55:24
Mr.Smart
В смысле посмотреть?
Данная библиотека виджетов на стадии разработки (давно уже). http://wiki.freepascal.org/Cocoa_Interface

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 16:20:31
dangreen
попробывал поставить, все настроил http://puu.sh/1fw1
но при компиляции выдает

Код: Выделить всё

/Developer/lazarus/lcl/interfaces/cocoa/cocoaint.pas(28,2) Warning: Illegal compiler switch "OBJECTIVEC1"
/Developer/lazarus/lcl/interfaces/cocoa/cocoaint.pas(1,1) Fatal: Can't find unit CocoaAll used by CocoaInt

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 17:06:25
Kitayets
Так ты не в дизайн-тайме форму свою смотри. Скомпилируй и запусти приложение - у тебя тоже рабочая область будет в один цвет с заголовком окна.

у скайпа вверху тулбар. добавь его, посмотри как будет выглядеть. Вообще такой интерфейс довольно легко делается... сверху тулбар, слева дерево (скорее всего стандартное) - справа: панель вверху и самописный виджет списка контактов. Т.е. форма довольно простая - один не стандартный виджет (список контактов) ну и поле ввода для поиска, всё остальное СТАНДАРТНОЕ.

BootCDMaker - вообще примитив. окно даже не масштабируется - обычный "диалог". Самое заковыристое - это анимация внизу. Я такой диалог за пять минут скомпоную.

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 17:11:59
dangreen
я уже задался нативные виджиты кокавы юзать) жду ответа от Mr.Smart

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 17:14:44
Mr.Smart
dangreen, а что меня ждать. Под данные виджеты не собирал. Они в стадии Alpha и не кто не гарантирует, что будут работать.

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 17:23:04
dangreen
ну блин.... щяс буду на форуме искать инфу про pascocoa

Добавлено спустя 3 минуты 44 секунды:
нифига на форуме нет :roll:

Добавлено спустя 3 минуты 5 секунд:
Kitayets писал(а):у скайпа вверху тулбар. добавь его, посмотри как будет выглядеть. Вообще такой интерфейс довольно легко делается... сверху тулбар, слева дерево (скорее всего стандартное) - справа: панель вверху и самописный виджет списка контактов. Т.е. форма довольно простая - один не стандартный виджет (список контактов) ну и поле ввода для поиска, всё остальное СТАНДАРТНОЕ.


если сделать как ты предлагаешь то получится далеко не скайп

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 18:23:07
Kitayets
собери с Qt - может больше понравится результат. по идее должно быть как тут - http://doc.qt.nokia.com/4.7/demos-macmainwindow.html

Re: Помогите справиться с задачей

Добавлено: 18.03.2011 18:53:50
dangreen
а как виджеты к форме применять?

Re: Помогите справиться с задачей

Добавлено: 21.03.2011 15:37:22
dangreen
как через synapse http узнать размер файла на сервере не скачивая сам файл?

Re: Помогите справиться с задачей

Добавлено: 21.03.2011 20:08:07
ViTality
Padre_Mortius писал(а):Я бы не рекомендовал пользоваться нестабильным и заброшенным компонентом... Лучше использовать Synapse для таких целей или libcurl



Re: Помогите справиться с задачей

Добавлено: 21.03.2011 20:27:00
Padre_Mortius
ViTality
это я уже видел, на момент написания поста там тишина стояла

Re: Помогите справиться с задачей

Добавлено: 22.03.2011 03:30:09
dangreen
да пожалуста, скажите как через synapse http узнать размер файла на сервере не скачивая сам файл?

Re: Помогите справиться с задачей

Добавлено: 22.03.2011 09:41:29
evd
да пожалуста, скажите как через synapse http узнать размер файла на сервере не скачивая сам файл?

Самый простой способ это послать запрос HEAD

Код: Выделить всё

  http.HTTPMethod('HEAD','http://example.org/file.exe');
  Size:=-1;
  for i := 0 to http.Headers.Count - 1 do
  begin
    if Pos('CONTENT-LENGTH:',UpperCase(http.Headers[i]))>0 then
    begin
      Size:= StrToIntDef(Trim(SeparateRight(http.Headers[i], ' ')), -1);
      break;
    end;
  end;

Но не все сервера поддерживают HEAD