| Программирование под linux, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Снова DBGridEh, глюки с картинками wav stereo -> mono, wav stereo -> mono Главное меню, Windows'а Не компилится TAudioInfo!, Проблемы с установкой компонента Повернуть JPEG картинку, без потери качества Нужна быстрая графическая библиотека, чтобы рисовать примитивы на канве Консольное приложение Играть mid из ресурса Анализатор звука, Как сделать спадающие пики, как в Winamp Midi в программе Поверхности 2-ого порядка звук в Delphi7; Как правильно реализовать Zoom?, Работа с Bitmap напишите самые интересные на Ваш взгляд ресурсы, по Delphi Графика в Delphi - стирание, Графика в Delphi Как вывести текст?, OpenGL GLScene error, проблеммы инстала Координата пересечения с поверхностью Как переместить фигуру? GLScene - проблемы с дымом, и динамическим созданием объектов GLScene - тень на GLTerrainRenderer, не отбрасывается :( GLScene - Общая модель для всех GLFreeForm, как сделать ? Выравнивание, Justify Гистограмма, количество пикселов от яркости Защита порг?, У кого оно реализовано? Проблема с графикой!!! График в цвете Сдвиг в TImage, Помогите, пожалуйста! Фильтр "удаления шума", из изображения GLScene Как нарисовать точку из 3-х координат? Редактирование EXIF, его удаление, и добавление новых пунктов Светлое пятно, на прямоугольнике Изменение размера TBitmap, найти ошибку Прозрачность текстур, Сделать текстуру без фона Вопрос по поводу непрямолинейности Нужны часто используемые ключевые слова Помогите с MMWaveIn, Обработка данных от MMWaveIn Конвертирование, wav->mp3 Создание AVI из TBitmap's OpenGL, инициализация TImage, Jpeg в Timage Как проиграть wav'ку единожды, uses MMSystem; Как Вы относитесь к курящим девушкам? TBitmap: как работать с картинкой попиксельно, Работа с BMP Имитация мимики произношения на Делфе, Помогите найти исходники Прокрутка картинки в TImage, помогите плиз Чтение и запись в порты UDP и TCP, Как читать и писать в порты UDP и TCP? Работа с MIDI Wave и mp3, как вывести содержимое файла MP3, Wave Мерцание изображения, по событию таймера мерцает картинка Некорректная работа DrawTextEx, (определение размеров текста) Вращение фигуры, с использованием OpenGL Отрисовка цилиндров в 3D, Расскажите, как делать :) Определение декомпрессора, Как определить название декомпрессора Работа с MIDI, Темп и тон opengl Внесите ясность в знание структуры MP3!, Использование структуры mp3 Эмулятор сети, D7 Как сделать выравнивание по правому краю TEdit? .dfx для 3д моделирования Импорт DXF 3d SOLID (твёрдое тело), импорт твердотельного объекта CAD Текстура, Создать текстуру Вертуальная вертушка Help!!! Преобразование wav файла, Как преобразовать wav файл в текстовый Мультики и кино в проекте, Хочу чтобы было для них 1 окно и всё!!! Прозрачная Panel ? Графики в Delphi Ресайз в качестве, Помогите Компонент TVoicecontrol, Распознавание речи Как Вы относитесь к курящим девушкам? |
Платные хостинги Раскрутка сайта Книги по программированию Как сделать выравнивание по правому краю TEdit?
- Как сделать выравнивание по правому краю текста в TEdit? - Код type TNumEdit = class(TEdit) procedure CreateParams(var Params: TCreateParams); override; ....... procedure TNumEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT; end; highlightSyntax('delphi1ZDg4Y','delphi');вроде так - А без наследника через SetWindowLong() не прокатит? - Замечательная функция, особенно порадовало что в хэлпе нет значений для третьего параметра, где взять доку по возможным значениям? - Хмм.. Vit я думал Вам известна она. Вообще замечательный способ постаить/убрать стиль без наследования CreateParams(). Но правда не всегда получается (условностей много, долго обяснять). Третье значение это как раз те значения стилей, что нужно установить. - Известна, я ее применял и не раз, но каждый раз значение стилей просто сдирал с какого-нибудь примера, я так и не смог найти в помощи список доступных стилей, подозреваю что она использует этот integer как массив битов но методом научного тыка проверять квкой бит что обозначает никак руки не доходили, наверное займусь на досуге... И всё же если у кого есть дока было бы неплохо иметь... - Да неее... всё до банальности просто.Вот пример как убрать кнопку с панели задач.SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW);Application.Handle - дискриптор окна, у которого будет выполняться операция, описываемая вторым параметром SetWindowLong()GWL_EXSTYLE - говорим, что меняем расширенный стиль окна. Есть другие команды, см. Help WinSDKТретий параметр показывает тот новой стиль который мы устанавливаем для окна (я говорю про операцию со стилем, имея ввиду, что второй параметр GWL_EXSTYLE. Если параметр будет другой тот и этот параметр будет другой). Как мы устанавливаем новый стиль? Очень просто. Сначала получаем старый стиль окна - GetWindowLong() - с теми же параметрами, а потом соединяем его с нужным нам стилем например через логическую операцию or.Как видите, ничего сложного. - Это всё совершенно ясно, спасибо за лбъяснения, но я это знаю, чего я не знаю, так это список стилей которые доступны, вот применяшь ты в примере стиль WS_EX_TOOLWINDOW, а какие ещё есть? - SetWindowLong не работает, на форме Caption по правому краю выровнять - пожалуйста, а текст в Edit - нет! - Так работает, спасибо большое. Только вот ES_MULTILINE там не так чтобы был нужен. - Это всё совершенно ясно, спасибо за лбъяснения, но я это знаю, чего я не знаю, так это список стилей которые доступны, вот применяшь ты в примере стиль WS_EX_TOOLWINDOW, а какие ещё есть?В MSDN'е список есть, скорей всего. Можно в SDK набрать WS_ - все стили на ладони :-) - >Как сделать выравнивание по правому краю текста в TEdit?Есть ещё один (бредовый) способ: использовать однострочный memo.Memo1.WordWrap := False;Memo1.WantReturns := False;Memo1.Alignment := taRightJustify; - стили есть в справке по CreateWindow,CreateWindowEx - Спасибо всем, на удивление тема оказалась интересной!  |