Lazarus For Delphi Users/ru: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | Эта статья предназначена для тех, кто интересуется Lazarus и уже знает Delphi. Здесь описаны различия между ними. | |
| 2 | 2 | ||
| 3 | 3 | ## Delphi -\> Lazarus | |
| 4 | 4 | ||
| 5 | 5 | Lazarus - среда быстрой разработки приложений (RAD), как и Delphi. Это значит, что она состоит из библиотеки визуальных компонентов и среды разработки (IDE). Библиотека компонентов Lazarus (LCL) похожа на библиотеку визуальных компонентов Delphi (VCL). Большинство модулей, классов и свойств Lazarus обладают такими же именами и функциями, как их аналоги в Delphi. Это делает относительно лёгким перенос приложений Delphi в Lazarus. Однако Lazarus **не является** 'клоном Delphi с открытым кодом', поэтому не следует ожидать 100%-ной совместимости. | |
| 6 | 6 | ||
| 7 | 7 | ### Самые большие различия между Lazarus и Delphi | |
| 8 | 8 | ||
| 9 | 9 | - код Lazarus полностью открыт | |
| 10 | 10 | - Lazarus написан кроссплатформенным способом | |
| 11 | 11 | - Lazarus использует компилятор [[Free Pascal]] (FPC) | |
| 12 | 12 | ||
| 13 | 13 | FPC работает на 15 платформах. Однако не все пакеты и библиотеки FPC портированы на все платформы, поэтому Lazarus работает на: | |
| 14 | 14 | ||
| 15 | 15 | - Linux (i386, x86_64) | |
| 16 | 16 | - FreeBSD (i386) | |
| 17 | 17 | - macOS (powerpc, i386, x86_64) | |
| 18 | 18 | - Windows (i386, x86_64) | |
| 19 | 19 | ||
| 20 | 20 | **Работа над Lazarus, как и над этим текстом, не закончена. Мы всё время ищем новых разработчиков и технических писателей...** | |
| 21 | 21 | ||
| 22 | 22 | ### С чего начать перенос проекта Delphi в Lazarus | |
| 23 | 23 | ||
| 24 | 24 | В меню **Сервис** выберите команду **Преобразовать проект Delphi в проект Lazarus**. Не стоит ждать, что так будет преобразовано абсолютно всё, тем не менее, это хорошее начало. Учтите, что средства Lazarus выполняют, в основном, преобразования в одном направлении. Если вам надо сохранить совместимость с Delphi (компилировать проект и в Delphi, и в Lazarus) рассмотрите использование [[XDev Toolkit]]. | |
| 25 | 25 | ||
| 26 | 26 | ### Поддержка Юникода | |
| 27 | 27 | ||
| 28 | 28 | Delphi до версии 2007 не поддерживала Юникод, а использовала кодировку Windows ANSI. Юникод в кодировке UTF-16 поддерживается в Delphi с версии 2009. | |
| 29 | 29 | ||
| 30 | 30 | В Lazarus поддержка Юникод реализована раньше в кодировке UTF-8 (см. [[LCL Unicode Support/ru|Поддержка Юникод в LCL]]). | |
| 31 | 31 | ||
| 32 | 32 | ## Delphi IDE -\> Lazarus IDE | |
| 33 | 33 | ||
| 34 | 34 | ### Проекты | |
| 35 | 35 | ||
| 36 | 36 | Главным в приложении Delphi является файл .dpr. Файл .dpr также содержит главный код программы Delphi и является местом, где среда разработки Delphi хранит сведения о соответствующих ключах компилятора и нахождении модулей. В приложении Lazarus есть файл .lpr, который также является основным файлом кода проекта на языке Pascal. Тем не менее, главным в проекте Lazarus является файл .lpi (Lazarus Project Information), который создаётся вместе с файлом .lpr. Все данные проекта (ключи компилятора, пути к модулям и т.п.) хранятся в файле .lpi. Поэтому важнейшим является файл .lpi. На большинстве платформ двойной щелчок по файлу .lpi открывает проект в среде разработки Lazarus. | |
| 37 | 37 | ||
| 38 | 38 | Delphi хранит пути к модулям проекта в файле .dpr. Пример: | |
| 39 | 39 | ||
| 40 | 40 | `unit1 in 'path/Unit1.pas';` | |
| 41 | 41 | ||
| 42 | 42 | Такие пути со словом 'in' специфичны для Delphi, и не работают в Lazarus, поэтому не используйте их. Вместо этого в параметрах проекта (**Проект-\>Параметры проекта...**) на странице **Параметры компилятора-\>Пути** задайте пути к модулям, находящимся за пределами каталога проекта. Большинство путей к модулям задаются автоматически после добавления зависимости от какого-либо пакета. Например, во все стандартные проекты Lazarus LCL по умолчанию добавляется зависимость от пакета LCL, поэтому в каждом новом проекте Lazarus LCL (**Проект-\>Создать проект...-\>Приложение**) пути ко всем модулям LCL известны без вашего участия. | |
| 43 | 43 | ||
| 44 | 44 | Delphi хранит параметры компилятора в файле .dpr (например, {\$APPTYPE CONSOLE}). Lazarus игнорирует такую запись. Вместо этого используйте страницу **Параметры компилятора** в диалоге **Параметры проекта**. | |
| 45 | 45 | ||
| 46 | 46 | ### Среда Lazarus не бывает "пустой" | |
| 47 | 47 | ||
| 48 | 48 | В среде Lazarus всегда открыт проект. Единственный способ "закрыть" проект - выход из Lazarus или открытие другого проекта. Это связано с тем, что проект Lazarus - ещё и "сеанс работы". Сведения о сеансе (например, параметры редактора) также хранятся в файле .lpi, и при повторном открытии проекта состояние редактора восстанавливается. | |
| 49 | 49 | ||
| 50 | 50 | **Пример.** Вы отлаживаете приложение и расставили несколько точек останова и закладок. Вы можете в любой момент сохранить проект, закрыть Lazarus или открыть другой проект. При повторном открытии проекта (даже на другом компьютере) все точки останова, закладки, открытые файлы, положение курсора, история переходов будут восстановлены. | |
| 51 | 51 | ||
| 52 | 52 | ### Редактор исходного кода | |
| 53 | 53 | ||
| 54 | 54 | В меню Сервис -\> Параметры -\> Редактор -\> Комбинации клавиш могут быть заданы практически любые комбинации клавиш. | |
| 55 | 55 | ||
| 56 | 56 | Среда разработки Lazarus располагает множеством инструментов для работы с кодом. Многие из них выглядят и работают так же, как и в Delphi. Но есть одно важное отличие: Lazarus не использует компилятор для получения сведений о коде, а работает с ним напрямую. Это даёт ряд важных преимуществ: | |
| 57 | 57 | ||
| 58 | 58 | Редактор работает с "комментариями". В Delphi комментарии это просто место между фрагментами кода. Здесь не действуют никакие средства работы с кодом, и комментарии смещаются при автоматической вставке нового кода. В Lazarus можно найти объявление даже в закоментированном коде. Это не очень надёжно, однако работает в большинстве случаев. При вставке нового кода среда разработки использует некоторую эвристику, чтобы сохранить комментарий и код вместе. К примеру, строка `"c: char; // comment"` разделяться не будет. | |
| 59 | 59 | ||
| 60 | - | ||
| 60 | + | Дельфийское «Автозавершение кода» (`Ctrl` + `Space`) в Lazarus называется «Автозавершение идентификатора». Термин Lazarus'овское «Автозавершение кода» - это функция, объединяющая «Автоматическое завершение класса» (как в Delphi), «Автозавершение локальной переменной» и «Автозавершение назначения события». Все они вызываются по `Ctrl` + `Space` + `C`, что подразумевает, что среда IDE определяет положение курсора. | |
| 61 | 61 | ||
| 62 | 62 | #### Пример для автозавершения локальной переменной | |
| 63 | 63 | ||
| 64 | 64 | Предположим, вы только что создали новый метод и написали оператор "i:=3;" | |
| 65 | 65 | ||
| 66 | 66 | ``` pascal | |
| 67 | 67 | procedure TForm1.DoSomething; | |
| 68 | 68 | begin | |
| 69 | 69 | i := 3; | |
| 70 | 70 | end; | |
| 71 | 71 | ``` | |
| 72 | 72 | ||
| 73 | - | ||
| 73 | + | Наведите курсор на идентификатор «i» и нажмите `Ctrl`+`Shift`+`C`, чтобы получить: | |
| 74 | 74 | ||
| 75 | 75 | ``` pascal | |
| 76 | 76 | procedure TForm1.DoSomething; | |
| 77 | 77 | var i: Integer; | |
| 78 | 78 | begin | |
| 79 | 79 | i := 3; | |
| 80 | 80 | end; | |
| 81 | 81 | ``` | |
| 82 | 82 | ||
| 83 | 83 | #### Пример автозавершения назначения события | |
| 84 | 84 | ||
| 85 | 85 | Приятной особенностью инспектора объектов является автоматическое создание методов. Заодно, вы можете получить редактор исходного кода для создания событий.\ | |
| 86 | 86 | Например: | |
| 87 | 87 | ||
| 88 | 88 | ``` pascal | |
| 89 | 89 | Button1.OnClick:= | |
| 90 | 90 | ``` | |
| 91 | 91 | ||
| 92 | - | ||
| 92 | + | Поместите курсор за оператором присваивания ":=" и нажмите `Ctrl`+`Shift`+`C`. | |
| 93 | 93 | ||
| 94 | 94 | ------------------------------------------------------------------------ | |
| 95 | 95 | ||
| 96 | 96 | Прим.перев.: при этом сформированный код будет выглядеть так: | |
| 97 | 97 | ||
| 98 | 98 | ``` pascal | |
| 99 | 99 | procedure TForm1.FormCreate(Sender: TObject); | |
| 100 | 100 | begin | |
| 101 | 101 | Button1.OnClick:=@Button1Click; | |
| 102 | 102 | end; | |
| 103 | 103 | ||
| 104 | 104 | procedure TForm1.Button1Click(Sender: TObject); | |
| 105 | 105 | begin | |
| 106 | 106 | ||
| 107 | 107 | end; | |
| 108 | 108 | ``` | |
| 109 | 109 | ||
| 110 | 110 | #### Пример автозавершения вызова процедуры | |
| 111 | 111 | ||
| 112 | 112 | Предположим, вы только что написали оператор "DoSomething(Width);" | |
| 113 | 113 | ||
| 114 | 114 | ``` pascal | |
| 115 | 115 | procedure SomeProcedure; | |
| 116 | 116 | var | |
| 117 | 117 | Width: integer; | |
| 118 | 118 | begin | |
| 119 | 119 | Width:=3; | |
| 120 | 120 | DoSomething(Width); | |
| 121 | 121 | end; | |
| 122 | 122 | ``` | |
| 123 | 123 | ||
| 124 | - | ||
| 124 | + | Наведите курсор на идентификатор «DoSomething» и нажмите `Ctrl`+`Shift`+`C`, чтобы получить: | |
| 125 | 125 | ||
| 126 | 126 | ``` pascal | |
| 127 | 127 | procedure DoSomething(aWidth: LongInt); | |
| 128 | 128 | begin | |
| 129 | 129 | ||
| 130 | 130 | end; | |
| 131 | 131 | ||
| 132 | 132 | procedure SomeProcedure; | |
| 133 | 133 | var | |
| 134 | 134 | Width: integer; | |
| 135 | 135 | begin | |
| 136 | 136 | Width:=3; | |
| 137 | 137 | DoSomething(Width); | |
| 138 | 138 | end; | |
| 139 | 139 | ``` | |
| 140 | 140 | ||
| 141 | 141 | #### "Автозавершение слова" Ctrl+W | |
| 142 | 142 | ||
| 143 | 143 | Он работает аналогично «Автозавершению идентификатора», но работает не для идентификаторов паскалей, а для всех слов. Позволяет выбрать все слова во всех открытых файлах, начиная с одинаковых букв. | |
| 144 | 144 | ||
| 145 | 145 | #### Поддержка Include-файлов | |
| 146 | 146 | ||
| 147 | 147 | Delphi не поддерживал их, поэтому вы, вероятно, еще не создавали много включаемых файлов. Но у включаемых файлов есть большое преимущество: они позволяют писать (не)зависимый от платформы код, не запутывая ваш код IFDEF'ами. Например: переход по методу, автозавершение класса, объявление find, ... все работает с include-файлами. | |
| 148 | 148 | ||
| 149 | 149 | Есть много вариантов функций кода. | |
| 150 | 150 | ||
| 151 | 151 | ### Designer | |
| 152 | 152 | ||
| 153 | 153 | \- см. руководство пользователя | |
| 154 | 154 | ||
| 155 | 155 | #### Инспектор объектов | |
| 156 | 156 | ||
| 157 | 157 | В IDE Delphi и IDE Lazarus'а Инспектор объектов используется для редактирования свойств компонента, назначения событий и т.д. Ниже приведены некоторые незначительные отличия, которые следует отметить при использовании: | |
| 158 | 158 | ||
| 159 | 159 | 1. Начиная с Delphi 5, существует Дерево Объектов(Object Treeview), которое можно использовать для навигации и выбора объектов в соответствии с иерархией в дополнение к традиционному выпадающему списку в Инспекторе объектов. В Lazarus это является частью Инспектора объектов и используется вместо раскрывающегося списка по умолчанию, вы можете выбрать его из контекстного меню "Show Component Tree"(Показать дерево компонентов), чтобы использовать/не использовать. | |
| 160 | 160 | 2. В Delphi двойной щелчок на пустом событии автоматически создаст его и откроет редактор исходного кода в этой позиции, в Lazarus справа от выбранного выпадающего меню есть кнопка, которая выполняет это действие. | |
| 161 | 161 | 3. В Delphi вы должны вручную удалить имя события в редакторе, чтобы удалить привязку к нему, в Lazarus вы можете нажать на раскрывающийся список и выбрать "(None)"(Нет). | |
| 162 | 162 | 4. Двойной щелчок по обычным свойствам, таким как логическое значение, не изменит его значение (как это произошло бы случае с Events(Событием)), вы должны выбрать его из выпадающего списка. А чтобы открыть их с прилагаемой формой редактора, вы должны нажать кнопку «...» справа от раскрывающегося меню. | |
| 163 | 163 | ||
| 164 | 164 | #### Пакеты | |
| 165 | 165 | ||
| 166 | 166 | - Может ли Lazarus установить и использовать пакеты Delphi? | |
| 167 | 167 | ||
| 168 | 168 | ||
| 169 | 169 | Нет, потому что они требуют магии компилятора Delphi. | |
| 170 | 170 | ||
| 171 | 171 | - Должны ли они быть специально сделанными для Lazarus? | |
| 172 | 172 | ||
| 173 | 173 | ||
| 174 | 174 | Да. | |
| 175 | 175 | ||
| 176 | 176 | Создайте новый пакет, сохраните его в каталоге с исходниками пакета (обычно это тот же каталог файла .dpk), добавьте LCL как требуемый пакет и, наконец, добавьте файлы .pas. Теперь вы можете установить его или использовать в своих проектах. Есть некоторые [[packages|различия между пакетами Lazarus и Delphi]]. | |
| 177 | 177 | ||
| 178 | 178 | ## VCL -\> LCL | |
| 179 | 179 | ||
| 180 | 180 | Хотя VCL и LCL служат большей части одной и той же цели - объектно-ориентированной иерархии компонентов, особенно ориентированной на быструю разработку приложений, они не идентичны. Например, в то время как VCL предоставляет много невизуальных компонентов, LCL пытается предоставлять только визуальные, в то время как большинство невизуальных компонентов (таких как доступ к базе данных) предоставляются с FCL, включенным в [[Free Pascal]]. | |
| 181 | 181 | ||
| 182 | 182 | Кроме того, многие элементы управления, которые представлены в VCL, могут отсутствовать в LCL, или наоборот, или даже если элементы управления существуют в обоих, они не являются клонами, и при переносе необходимо внести изменения в приложения, компоненты и элементы управления. | |
| 183 | 183 | ||
| 184 | 184 | Ниже приведена попытка для пользователя Delphi дать достаточно полное описание основных различий или несовместимостей между ними. Она охватывает различия в первую очередь особенно для VCL D4, хотя иногда также D5, D6 или D7; и с текущим LCL, как в CVS. Таким образом, оно может не всегда соответствовать версии Delphi, к которой вы привыкли, или полностью соответствовать текущему LCL, который у вас есть. Если вы видите неточности между нижеследующим и LCL, как в CVS, или ваш Delphi не стесняется добавлять и изменять, чтобы сделать его максимально полным для всех людей. | |
| 185 | 185 | ||
| 186 | 186 | ### TControl.Font/TControl.ParentFont | |
| 187 | 187 | ||
| 188 | 188 | В VCL довольно распространено и нормально использовать определенное имя шрифта и свойства шрифта, такие как жирный шрифт и курсив для элементов управления, и ожидать, что это значение всегда будет соблюдаться. Далее предоставляется свойство TControl.ParentFont, которое гарантирует, что элемент управления всегда будет следовать за шрифтом его родителя. Опять же подразумеваемое предположение, что эти значения будут всегда соблюдаться, даже независимо от настроек внешнего вида Windows. | |
| 189 | 189 | ||
| 190 | 190 | Это не всегда верно в LCL, да и не может быть. LCL, являющийся кросс-платформой/кросс-интерфейсом по своей природе, предпочитает сбалансированный подход и вместо этого всегда будет пытаться использовать собственные настройки Рабочего стола/Внешнего вида инструментария или Темы для любых виджетов. Например, если используется интерфейс GTK, а тема gtk предоставляет определенный шрифт для кнопок, то кнопки LCL всегда будут пытаться использовать этот шрифт. | |
| 191 | 191 | ||
| 192 | 192 | Это означает, что большинство элементов управления LCL не имеют того же уровня управления проектированием, который часто ожидается в VCL, скорее, только те пользовательские элементы управления, которые нарисованы Canvas вместо назначенного интерфейса, могут постоянно изменяться таким образом независимо от используемого интерфейса. | |
| 193 | 193 | ||
| 194 | 194 | ### Control Dragging/Docking | |
| 195 | 195 | ||
| 196 | 196 | В VCL большинство (Win)Controls реализуют методы и функции обратного вызова для обработки перетаскивания и закрепления элементов управления, например, перетаскивая элемент управления с одной панели и закрепляя его на другой панели во время выполнения. | |
| 197 | 197 | ||
| 198 | 198 | Эта функциональность в настоящее время не реализована/не завершена в LCL, хотя в настоящее время она находится на начальных этапах планирования и должна в конечном итоге поддерживать некоторый уровень совместимости для этого типа поведения, если не точно таким же образом. | |
| 199 | 199 | ||
| 200 | 200 | В настоящее время это означает, что ни один элемент управления не будет наследовать/использовать следующие функции, процедуры, свойства или события TControl: | |
| 201 | 201 | ||
| 202 | 202 | ``` pascal | |
| 203 | 203 | Protected | |
| 204 | 204 | function GetDockEdge(MousePos: TPoint): TAlign; | |
| 205 | 205 | function GetDragImages: TDragImageList; | |
| 206 | 206 | function GetFloating: Boolean; | |
| 207 | 207 | function GetFloatingDockSiteClass: TWinControlClass; | |
| 208 | 208 | procedure DoEndDrag(Target:TObject); X, Y: Integer); | |
| 209 | 209 | procedure DockTrackNoTarget(Source: TDragDockObject; X, Y: Integer); | |
| 210 | 210 | procedure DoEndDock(Target: TObject; X, Y: Integer); | |
| 211 | 211 | procedure DoDock(NewDockSite: TWinControl; var ARect: TRect); | |
| 212 | 212 | procedure DoStartDock(var DragObject: TDragObject); | |
| 213 | 213 | procedure DragCanceled; | |
| 214 | 214 | procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState; | |
| 215 | 215 | var Accept: Boolean); | |
| 216 | 216 | procedure DoEndDrag(Target: TObject; X, Y: Integer); | |
| 217 | 217 | procedure DoStartDrag(var DragObject: TDragObject); | |
| 218 | 218 | procedure DrawDragDockImage(DragDockObject: TDragDockObject); | |
| 219 | 219 | procedure EraseDragDockImage(DragDockObject: TDragDockObject); | |
| 220 | 220 | procedure PositionDockRect(DragDockObject: TDragDockObject); | |
| 221 | 221 | procedure SetDragMode(Value: TDragMode); | |
| 222 | 222 | property DragKind: TDragKind; | |
| 223 | 223 | property DragCursor: TCursor; | |
| 224 | 224 | property DragMode: TDragMode; | |
| 225 | 225 | property OnDragDrop: TDragDropEvent; | |
| 226 | 226 | property OnDragOver: TDragOverEvent; | |
| 227 | 227 | property OnEndDock: TEndDragEvent; | |
| 228 | 228 | property OnEndDrag: TEndDragEvent; | |
| 229 | 229 | property OnStartDock: TStartDockEvent; | |
| 230 | 230 | property OnStartDrag: TStartDragEvent; | |
| 231 | 231 | public | |
| 232 | 232 | function Dragging: Boolean; | |
| 233 | 233 | function ManualDock(NewDockSite: TWinControl; DropControl: TControl; | |
| 234 | 234 | ControlSide: TAlign): Boolean; | |
| 235 | 235 | function ManualFloat(ScreenPos: TRect): Boolean; | |
| 236 | 236 | function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl; | |
| 237 | 237 | DropControl: TControl; ControlSide: TAlign): Boolean; | |
| 238 | 238 | procedure BeginDrag(Immediate: Boolean; Threshold: Integer); | |
| 239 | 239 | procedure Dock(NewDockSite: TWinControl; ARect: TRect); | |
| 240 | 240 | procedure DragDrop(Source: TObject; X, Y: Integer); | |
| 241 | 241 | procedure EndDrag(Drop: Boolean); | |
| 242 | 242 | property DockOrientation: TDockOrientation; | |
| 243 | 243 | property Floating: Boolean; | |
| 244 | 244 | property FloatingDockSiteClass: TWinControlClass; | |
| 245 | 245 | property HostDockSite: TWinControl; | |
| 246 | 246 | property LRDockWidth: Integer; | |
| 247 | 247 | property TBDockHeight: Integer; | |
| 248 | 248 | property UndockHeight: Integer; | |
| 249 | 249 | property UndockWidth: Integer; | |
| 250 | 250 | ``` | |
| 251 | 251 | ||
| 252 | 252 | Вот эти классы не существуют/непригодны для использования - | |
| 253 | 253 | ||
| 254 | 254 | ``` pascal | |
| 255 | 255 | TDragImageList = class(TCustomImageList) | |
| 256 | 256 | TDockZone = class | |
| 257 | 257 | TDockTree = class(TInterfacedObject, IDockManager) | |
| 258 | 258 | TDragObject = class(TObject) | |
| 259 | 259 | TBaseDragControlObject = class(TDragObject) | |
| 260 | 260 | TDragControlObject = class(TBaseDragControlObject) | |
| 261 | 261 | TDragDockObject = class(TBaseDragControlObject) | |
| 262 | 262 | ``` | |
| 263 | 263 | ||
| 264 | 264 | а вот эти функции также непригодны / несовместимы - | |
| 265 | 265 | ||
| 266 | 266 | ``` pascal | |
| 267 | 267 | function FindDragTarget(const Pos: TPoint; | |
| 268 | 268 | AllowDisabled: Boolean) : TControl; | |
| 269 | 269 | procedure CancelDrag; | |
| 270 | 270 | function IsDragObject(sender: TObject): Boolean; | |
| 271 | 271 | ``` | |
| 272 | 272 | ||
| 273 | 273 | Запуск менеджера пристыковки окон описан здесь: [[Anchor Docking]] | |
| 274 | 274 | ||
| 275 | 275 | ### TEdit/TCustomEdit | |
| 276 | 276 | ||
| 277 | 277 | Элементы управления Edit, хотя они и функционируют в основном как в LCL, так и в VCL, имеют некоторые особенности, которые необходимо учитывать при преобразовании: | |
| 278 | 278 | ||
| 279 | 279 | 1. Из-за ограничений в интерфейсах TEdit.PasswordChar работает пока не во всех интерфейсах (хотя со временем может и будет), вместо этого следует использовать TCustomEdit.EchoMode emPassword в том случае, если текст события должен быть скрыт. | |
| 280 | 280 | 2. Событие Drag/Dock еще не реализовано. Для получения дополнительной информации см. предыдущий раздел Control Dragging/Docking. | |
| 281 | 281 | 3. Свойства шрифта обычно игнорируются для согласованности интерфейса, для подробного объяснения, что и как, пожалуйста, см. TControl.Font/TControl.ParentFont | |
| 282 | 282 | ||
| 283 | 283 | ### TDBImage | |
| 284 | 284 | ||
| 285 | 285 | Delphi и Lazarus имеют элемент управления [[TDBImage]], который показывает изображения, хранящиеся в поле базы данных. В текущих стабильных версиях (1.2.4) Lazarus хранит информацию о типе изображения в поле базы данных перед фактическими данными изображения. См. процедуру *TDBImage.UpdateData*. Это означает, что Delphi и более старые реализации Lazarus не совместимы. | |
| 286 | 286 | ||
| 287 | 287 | В текущей стабильной версии Lazarus (1.2.0+) реализованы изменения, позволяющие использовать поведение, совместимое с Delphi. Пожалуйста, см. [[Lazarus 1.2.0 release notes|Lazarus_1.2.0_release_notes#TDBImage]] для получения подробной информации о том, как активировать это. | |
| 288 | 288 | ||
| 289 | 289 | Текущий транк Lazarus'а возвращается к Delphi-совместимому поведению при чтении полей базы данных в формате Delphi в TDBImage. | |
| 290 | 290 | ||
| 291 | 291 | ### (необязательно) TSplitter -\> TPairSplitter | |
| 292 | 292 | ||
| 293 | 293 | **Пожалуйста, улучшите меня!** | |
| 294 | 294 | ||
| 295 | 295 | Теперь в LCL есть элемент управления [[TSplitter/ru|TSplitter]], поэтому нет необходимости его преобразовывать. | |
| 296 | 296 | ||
| 297 | 297 | Тем не менее, если вы хотите, здесь приводится объяснение: | |
| 298 | 298 | ||
| 299 | 299 | Следующее в основном основано на вопросах пользователя Vincent Snijders в списках рассылки и ответов [Andrew Johnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson): | |
| 300 | 300 | ||
| 301 | 301 | В VCL элементы управления "Splitting" - это ползунок, который можно перетаскивать между двумя компонентами для предоставления большего или меньшего пространства одному из них за счет другого; выполняется \[посредством компонента\] TSplitter. Например, в IDE Delphi его можно увидеть между закрепленным Code Explorer и Source Viewer. | |
| 302 | 302 | ||
| 303 | 303 | LCL предоставляет свой собственный элемент управления, называемый [[TPairSplitter/ru|TPairSplitter]], который служит для тех же целей, однако он не совместим с Delphi, поэтому в случае переноса кода потребуется исправление "поврежденного" кода VCL или DFM-файлов Delphi, даже если используется много общего между двумя этими компонентами. | |
| 304 | 304 | ||
| 305 | 305 | Так в чем именно различия? | |
| 306 | 306 | ||
| 307 | 307 | Ну, самые большие различия в том, что VCL TSplitter не имеет \[размещенных на нем\] дочерних элементов, вместо этого он помещается между двумя правильно выровненными элементами управления и позволяет изменять их размер во время выполнения независимо от его собственного размера. На каждой стороне должно быть два элемента управления, чтобы что-нибудь сделать. Простым примером будет форма с выровненной по левому краю панелью, выровненным по левому краю разделителем и второй выровненной по клиенту панелью. Во время выполнения вы можете затем изменить размер, заданный для каждой панели, перетаскивая за специальный ползунок, предоставляемый элементом управления Splitter. | |
| 308 | 308 | ||
| 309 | 309 | Однако с точки зрения LCL, TPairSplitter - это особый вид управления с двумя панелями, и он может быть полезен только в том случае, если элементы управления для разделения находятся на этих панелях, но он все равно будет выполнять разбиение между этими панелями, независимо от того, что расположено на них. Таким образом, по аналогии с предыдущим примером, вы получите форму с выровненным клиентом TPairSplitter, выровненным по панели клиентом с левой стороны и выровненным по панели клиентом с правой стороны. | |
| 310 | 310 | ||
| 311 | 311 | ------------------------------------------------------------------------ | |
| 312 | 312 | ||
| 313 | 313 | Прим.перев.: иными словами, TPairSplitter - это готовый контейнер, разделенный TSplitter на две половины (в зависимости от значения свойства SplitterType на левую/правую или верхнюю/нижнюю), каждая из которых уже имеет привязку alClient, готова принимать на себя дочерние элементы и меняет свои размеры при перемещении ползунка разделителя. | |
| 314 | 314 | ||
| 315 | 315 | ------------------------------------------------------------------------ | |
| 316 | 316 | ||
| 317 | 317 | Другое важное отличие состоит в том, что в VCl, поскольку TSplitter является собственным TControl, положение сохраняется относительно других элементов управления при изменении размера. Поэтому, например, клиентская панель будет расти, в то время как другие панели этого делать не будут, таким образом, позиция разделения является относительна к выравниванию разделяемых элементов управления. | |
| 318 | 318 | ||
| 319 | 319 | В LCL, поскольку боковые панели отделены друг от друга, у TPairSplitter есть свойство Position, которое является абсолютным по отношению к верхнему или левому краям \[родительского элемента\]. Поэтому при изменении размера фактическая позиция не изменяется в зависимости от содержимого, отсюда, необходимо установить обратный вызов, чтобы обеспечить сохранение соотношения при изменении размера, если это важно. | |
| 320 | 320 | ||
| 321 | 321 | ------------------------------------------------------------------------ | |
| 322 | 322 | ||
| 323 | 323 | Прим.перев.: проще говоря, Position - это позиция ползунка TPairSplitter относительно левого/верхнего края контейнера (в зависимости от значения SplitterType = pstHorizontal/pstVertical соответственно). | |
| 324 | 324 | ||
| 325 | 325 | ------------------------------------------------------------------------ | |
| 326 | 326 | ||
| 327 | 327 | Например, если правая сторона вертикального разбиения должна иметь поведение, аналогичное alClient, необходимо добавить обратный вызов изменения размера формы, который выполняет что-то вроде: | |
| 328 | 328 | ||
| 329 | 329 | ``` pascal | |
| 330 | 330 | PairSplitter.Position := PairSplitter.Width - PairSplitter.Position; | |
| 331 | 331 | ``` | |
| 332 | 332 | ||
| 333 | 333 | Итак, как я могу преобразовать существующий код, использующий TSplitter, в TPairSplitter? | |
| 334 | 334 | ||
| 335 | 335 | Если разделитель и элементы управления создаются внутри фактической функции (например, при создании формы), преобразование не должно быть слишком сложным, в первую очередь реорганизуйте код, чтобы создать элементы управления в порядке новой иерархии, и установите родительские элементы дочерних элементов управления для разделения на левую/верхнюю и правую/нижнюю части PairSplitter. Пример изменений: | |
| 336 | 336 | ||
| 337 | - | ||
| 338 | - | ||
| 339 | - | ||
| 340 | - | ||
| 341 | - | ||
| 342 | - | ||
| 343 | - | ||
| 344 | - | ||
| 345 | - | ||
| 346 | - | ||
| 347 | - | ||
| 348 | - | ||
| 349 | - | ||
| 350 | - | ||
| 351 | - | ||
| 352 | - | ||
| 353 | - | ||
| 354 | - | ||
| 355 | - | ||
| 356 | - | ||
| 357 | - | ||
| 358 | - | ||
| 359 | - | ||
| 360 | - | ||
| 361 | - | ||
| 362 | - | ||
| 363 | - | ||
| 364 | - | ||
| 365 | - | ||
| 366 | - | ||
| 367 | - | ||
| 368 | - | ||
| 369 | - | ||
| 370 | - | ||
| 371 | - | ||
| 372 | - | ||
| 373 | - | ||
| 374 | - | ||
| 375 | - | ||
| 376 | - | ||
| 377 | - | ||
| 378 | - | ||
| 379 | - | ||
| 380 | - | ||
| 381 | - | ||
| 382 | - | ||
| 383 | - | ||
| 384 | - | ||
| 385 | - | ||
| 386 | - | ||
| 387 | - | ||
| 388 | - | ||
| 389 | - | ||
| 390 | - | ||
| 391 | - | ||
| 392 | - | ||
| 393 | - | ||
| 394 | - | ||
| 395 | - | ||
| 396 | - | ||
| 397 | - | ||
| 398 | - | ||
| 399 | - | ||
| 400 | - | ||
| 401 | - | ||
| 402 | - | ||
| 403 | - | ||
| 404 | - | ||
| 405 | - | ||
| 406 | - | ||
| 407 | - | ||
| 408 | - | ||
| 409 | - | ||
| 410 | - | ||
| 411 | - | ||
| 412 | - | ||
| 413 | - | ||
| 414 | - | ||
| 415 | - | ||
| 416 | - | ||
| 417 | - | ||
| 418 | - | ||
| 419 | - | ||
| 420 | - | ||
| 421 | - | ||
| 422 | - | ||
| 423 | - | ||
| 424 | - | ||
| 425 | - | ||
| 426 | - | ||
| 427 | - | ||
| 428 | - | ||
| 429 | - | ||
| 430 | - | ||
| 431 | - | ||
| 432 | - | ||
| 433 | - | ||
| 434 | - | ||
| 435 | - | ||
| 436 | - | ||
| 437 | - | ||
| 438 | - | ||
| 439 | - | ||
| 440 | - | ||
| 441 | - | ||
| 442 | - | ||
| 443 | - | ||
| 444 | - | ||
| 445 | - | ||
| 446 | - | ||
| 337 | + | **VCL** | |
| 447 | 338 | ||
| 339 | + | **LCL** | |
| 340 | + | ||
| 341 | + | ``` pascal | |
| 342 | + | var | |
| 343 | + | BottomPanel: TPanel; | |
| 344 | + | VerticalSplitter: TSplitter; | |
| 345 | + | LeftPanel: TPanel; | |
| 346 | + | HorizontalSplitter: TSplitter; | |
| 347 | + | MainPanel: TPanel; | |
| 348 | + | ||
| 349 | + | begin | |
| 350 | + | BottomPanel:= TPanel.Create(Self); | |
| 351 | + | with (BottomPanel) do | |
| 352 | + | begin | |
| 353 | + | Parent:= Self; | |
| 354 | + | Height:= 75; | |
| 355 | + | Align:= alBottom; | |
| 356 | + | end; | |
| 357 | + | ||
| 358 | + | VerticalSplitter:= TSplitter.Create(Self); | |
| 359 | + | with (VerticalSplitter) do | |
| 360 | + | begin | |
| 361 | + | Parent:= Self; | |
| 362 | + | Align:= alBottom; | |
| 363 | + | end; | |
| 364 | + | ||
| 365 | + | HorizontalSplitter:= TSplitter.Create(Self); | |
| 366 | + | with (HorizontalSplitter) do | |
| 367 | + | begin | |
| 368 | + | Parent:= Self; | |
| 369 | + | align:= alLeft; | |
| 370 | + | end; | |
| 371 | + | ||
| 372 | + | LeftPanel:= TPanel.Create(Self); | |
| 373 | + | with (LeftPanel) do | |
| 374 | + | begin | |
| 375 | + | Parent:= Self; | |
| 376 | + | Width:= 125; | |
| 377 | + | Align:= alLeft; | |
| 378 | + | end; | |
| 379 | + | ||
| 380 | + | MainPanel:= TPanel.Create(Self); | |
| 381 | + | with (MainPanel) do | |
| 382 | + | begin | |
| 383 | + | Parent:= Self; | |
| 384 | + | Align:= alClient; | |
| 385 | + | Caption:= 'Привет'; | |
| 386 | + | end; | |
| 387 | + | end; | |
| 388 | + | ``` | |
| 389 | + | ||
| 390 | + | ``` pascal | |
| 391 | + | var | |
| 392 | + | BottomPanel: TPanel; | |
| 393 | + | VerticalSplitter: TPairSplitter; | |
| 394 | + | LeftPanel: TPanel; | |
| 395 | + | HorizontalSplitter: TPairSplitter; | |
| 396 | + | MainPanel: TPanel; | |
| 397 | + | ||
| 398 | + | begin | |
| 399 | + | VerticalSplitter:= TPairSplitter.Create(Self); | |
| 400 | + | with (VerticalSplitter) do | |
| 401 | + | begin | |
| 402 | + | Parent:= Self; | |
| 403 | + | Align:= alClient; | |
| 404 | + | Width:= Self.Width; | |
| 405 | + | Height:= Self.Height; | |
| 406 | + | SplitterType:= pstVertical; | |
| 407 | + | Position:= Height - 75; | |
| 408 | + | Sides[0].Width:= Width; | |
| 409 | + | Sides[0].Height:= Position; | |
| 410 | + | end; | |
| 411 | + | ||
| 412 | + | HorizontalSplitter:= TPairSplitter.Create(Self); | |
| 413 | + | with (HorizontalSplitter) do | |
| 414 | + | begin | |
| 415 | + | Parent:= VerticalSplitter.Sides[0]; | |
| 416 | + | Width:= Self.Width; | |
| 417 | + | Height:= VerticalSplitter.Position; | |
| 418 | + | align:= alClient; | |
| 419 | + | SplitterType:= pstHorizontal; | |
| 420 | + | Position:= 125; | |
| 421 | + | end; | |
| 422 | + | ||
| 423 | + | LeftPanel:= TPanel.Create(Self); | |
| 424 | + | with (LeftPanel) do | |
| 425 | + | begin | |
| 426 | + | Parent:= HorizontalSplitter.Sides[0]; | |
| 427 | + | Align:= alClient; | |
| 428 | + | end; | |
| 429 | + | ||
| 430 | + | MainPanel:= TPanel.Create(Self); | |
| 431 | + | with (MainPanel) do | |
| 432 | + | begin | |
| 433 | + | Parent:= HorizontalSplitter.Sides[1]; | |
| 434 | + | Align:= alClient; | |
| 435 | + | Caption:= 'Привет'; | |
| 436 | + | end; | |
| 437 | + | ||
| 438 | + | BottomPanel:= TPanel.Create(Self); | |
| 439 | + | with (BottomPanel) do | |
| 440 | + | begin | |
| 441 | + | Parent:= VerticalSplitter.Sides[1]; | |
| 442 | + | Align:= alClient; | |
| 443 | + | end; | |
| 444 | + | end; | |
| 445 | + | ``` | |
| 446 | + | ||
| 448 | 447 | Таким образом, как вы видите, \[преобразование\] справедливо для большей \[части кода\] с \[сохранением\] иерархии элементов управления. И если вы знакомы со \[структурой\] DFM-файлов, изменения, необходимые для преобразования DFM -\> LFM, должны быть очевидны из выше приведенного, поскольку они являются такими же изменениями в Parent/Owner и т.д. | |
| 449 | 448 | ||
| 450 | 449 | Таким образом, приведенный выше пример будет что-то вроде - | |
| 451 | 450 | ||
| 452 | - | ||
| 453 | - | ||
| 454 | - | ||
| 455 | - | ||
| 456 | - | ||
| 457 | - | ||
| 458 | - | ||
| 459 | - | ||
| 460 | - | ||
| 461 | - | ||
| 462 | - | ||
| 463 | - | ||
| 464 | - | ||
| 465 | - | ||
| 466 | - | ||
| 467 | - | ||
| 468 | - | ||
| 469 | - | ||
| 470 | - | ||
| 471 | - | ||
| 472 | - | ||
| 473 | - | ||
| 474 | - | ||
| 475 | - | ||
| 476 | - | ||
| 477 | - | ||
| 478 | - | ||
| 479 | - | ||
| 480 | - | ||
| 481 | - | ||
| 482 | - | ||
| 483 | - | ||
| 484 | - | ||
| 485 | - | ||
| 486 | - | ||
| 487 | - | ||
| 488 | - | ||
| 489 | - | ||
| 490 | - | ||
| 491 | - | ||
| 492 | - | ||
| 493 | - | ||
| 494 | - | ||
| 495 | - | ||
| 496 | - | ||
| 497 | - | ||
| 498 | - | ||
| 499 | - | ||
| 500 | - | ||
| 501 | - | ||
| 502 | - | ||
| 503 | - | ||
| 504 | - | ||
| 505 | - | ||
| 506 | - | ||
| 507 | - | ||
| 508 | - | ||
| 509 | - | ||
| 510 | - | ||
| 511 | - | ||
| 512 | - | ||
| 513 | - | ||
| 514 | - | ||
| 515 | - | ||
| 516 | - | ||
| 451 | + | **Delphi DFM** | |
| 452 | + | ||
| 453 | + | **(посторонние значения удалены)** | |
| 454 | + | ||
| 455 | + | **Lazarus LFM** | |
| 456 | + | ||
| 457 | + | **(большинство свойств width, height... и т.д. удалены)** | |
| 458 | + | ||
| 459 | + | ``` pascal | |
| 460 | + | object VerticalSplitter: TSplitter | |
| 461 | + | Height = 3 | |
| 462 | + | Cursor = crVSplit | |
| 463 | + | Align = alBottom | |
| 464 | + | end | |
| 465 | + | object HorizontalSplitter: TSplitter | |
| 466 | + | Width = 3 | |
| 467 | + | Align = alLeft | |
| 468 | + | end | |
| 469 | + | object BottomPanel: TPanel | |
| 470 | + | Height = 75 | |
| 471 | + | Align = alBottom | |
| 472 | + | end | |
| 473 | + | object LeftPanel: TPanel | |
| 474 | + | Width = 125 | |
| 475 | + | Align = alLeft | |
| 476 | + | end | |
| 477 | + | object MainPanel: TPanel | |
| 478 | + | Align = alClient | |
| 479 | + | end | |
| 480 | + | ``` | |
| 481 | + | ||
| 482 | + | ``` pascal | |
| 483 | + | object VerticalSplitter: TPairSplitter | |
| 484 | + | Align = alClient | |
| 485 | + | SplitterType = pstVertical | |
| 486 | + | Position = 225 | |
| 487 | + | Height = 300 | |
| 488 | + | Width = 400 | |
| 489 | + | object Pairsplitterside1: TPairSplitterIde | |
| 490 | + | object HorizontalSplitter: TPairSplitter | |
| 491 | + | Align = alClient | |
| 492 | + | Position = 125 | |
| 493 | + | object Pairsplitterside3: TPairSplitterIde | |
| 494 | + | Width = 125 | |
| 495 | + | object LeftPanel: TPanel | |
| 496 | + | Align = alClient | |
| 497 | + | Width = 125 | |
| 498 | + | end | |
| 499 | + | end | |
| 500 | + | object Pairsplitterside4: TPairSplitterIde | |
| 501 | + | object MainPanel: TPanel | |
| 502 | + | Align = alClient | |
| 503 | + | end | |
| 504 | + | end | |
| 505 | + | end | |
| 506 | + | end | |
| 507 | + | object Pairsplitterside2: TPairSplitterIde | |
| 508 | + | object BottomPanel: TPanel | |
| 509 | + | Align = alClient | |
| 510 | + | Height = 75 | |
| 511 | + | end | |
| 512 | + | end | |
| 513 | + | end | |
| 514 | + | ``` | |
| 517 | 515 | ||
| 518 | 516 | ### TCustomTreeView/TTreeView | |
| 519 | 517 | ||
| 520 | 518 | И VCL, и LCL предоставляют компонент TCustomTreeView/TTreeView, используемый для древовидных списков данных с несколькими узлами, расширенного выбора и списков изображений, и хотя фактические функции сопоставимы, не все свойства полностью совместимы. Основные различия заключаются в следующем - | |
| 521 | 519 | ||
| 522 | 520 | **Список не полон, но обновлен для включения в него функции TCustomTreeView Mark и protected-методов** | |
| 523 | 521 | ||
| 524 | 522 | 1. LCL предоставляет TCustomTreeView.Options, набор опций, которые можно установить в элементе управления, чтобы изменить его поведение и внешний вид. Вот эти опции: | |
| 525 | 523 | - tvoAllowMultiselect - включает режим выбора нескольких узлов, эквивалентный включению TCustomTreeView.MultiSelect в VCL D6 | |
| 526 | 524 | - tvoAutoExpand - автоматическое раскрытие узлов, что эквивалентно включению TCustomTreeView.AutoExpand | |
| 527 | 525 | - tvoAutoInsertMark - обновляет предосмотр Drag при перемещении мышью. | |
| 528 | 526 | - tvoAutoItemHeight - автоматически регулирует высоту элемента. | |
| 529 | 527 | - tvoHideSelection - не помечать выбранный элемент. | |
| 530 | 528 | - tvoHotTrack - использовать Hot Tracking, что эквивалетно включению TCustomTreeview.HotTrack | |
| 531 | 529 | - tvoKeepCollapsedNodes - сохранять дочерние узлы при их сжатии/сворачивании | |
| 532 | 530 | - tvoReadOnly - сделать Treeview доступным только для чтения, эквивалентно включению TCustomTreeview.ReadOnly | |
| 533 | 531 | - tvoRightClickSelect - разрешить использовать правую кнопку мыши для выбора узлов, что эквивалентно включению TCustomTreeView.RightClickSelect | |
| 534 | 532 | - tvoRowSelect - разрешить выбор строк, что эквивалентно включению TCustomTreeView.RowSelect | |
| 535 | 533 | - tvoShowButtons - показывать кнопки, что эквивалентно включению TCustomTreeView.ShowButtons | |
| 536 | 534 | - tvoShowLines - показывать линии узлов, что эквивалентные включению TCustomTreeView.ShowLines | |
| 537 | 535 | - tvoShowRoot - показывать корневые элементы, что эквивалентные включению TCustomTreeView.ShowRoot | |
| 538 | 536 | - tvoShowSeparators - показывать разделитель | |
| 539 | 537 | - tvoToolTips - показывать подсказки для отдельных узлов | |
| 540 | 538 | 2. LCL предоставляет дополнительные свойства: | |
| 541 | 539 | - Событие TCustomTreeView.OnSelectionChange | |
| 542 | 540 | - TCustomTreeView.DefaultItems, для количества элементов \[дерева\] по умолчанию | |
| 543 | 541 | - TCustomTreeView.ExpandSignType для определения знака, используемого в раскрывающихся/сворачивающихся узлах | |
| 544 | 542 | 3. Хотя большинство событий OnDrag/OnDock доступны в LCL, они не работают. Для получения дополнительной информации см. предыдущий раздел [[Lazarus For Delphi Users/ru|Control Dragging/Docking]]. | |
| 545 | 543 | ||
| 546 | 544 | ### Сообщения / События | |
| 547 | 545 | ||
| 548 | 546 | Порядок и частота сообщений и событий (OnShow, OnActivate, OnEnter, ...) отличаются от VCL и зависят от [[Widgetset|widgetset]]. LCL предоставляет подмножество WinAPI-подобных сообщений, чтобы упростить перенос компонентов Delphi, но почти все сообщения LCL работают несколько иначе, чем аналоги VCL/WinAPI. Большая часть кода Delphi, использующего сообщения WinAPI, использует их, потому что VCL не имеет функции или по соображениям скорости. Такие вещи редко работают одинаково в LCL, поэтому их нужно проверять вручную. Вот почему сообщения LCL называются, например, LM_SIZE вместо WM_SIZE (модуль Lmessages). | |
| 549 | 547 | ||
| 550 | 548 | **Замечание по обработке пользовательских сообщений!** Начиная с версии 0.9.26 (декабрь 2008г.), способ обработки пользовательских сообщений WinApi (например, WM_HOTKEY, WM_SYSCOMMAND) отличается от способа обработки этих сообщений в Delphi. В настоящее время вы не можете обработать их с помощью директивы **message** или переопределением метода *WndProc* формы. Единственный способ обработать их в форме - это самому перехватить сообщение Windows *windowproc*. Подробнее читайте здесь: [[Win32/64 Interface|Processing non-user messages in your window]] | |
| 551 | 549 | ||
| 552 | 550 | ## См. также | |
| 553 | 551 | ||
| 554 | 552 | - [[Code Conversion Guide/ru|Code Conversion Guide (from Delphi & Kylix)]] | |
| 555 | 553 | - [[Compile With Delphi/ru|Compile With Delphi]] | |
| 556 | 554 | ||
| 557 | 555 | --- | |
| 558 | 556 | *From the Free Pascal wiki, page "Lazarus For Delphi Users/ru", as it stood on 2019-12-22 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |