Member
Статус: Не в сети Регистрация: 25.01.2008 Откуда: СПб
Как програмно поменять Anchors объекта (к примеру добавить/удалить akRight)
Код:
include(PaintBox.Anchors, akRight);
не работает Добавлено спустя 21 минуту, 23 секунды PS Получилось только так
Код:
procedure TPaintBuffer.SetAnchors(Right,Left,Top,Bottom: boolean); var Anchors: TAnchors; begin if Right then include(Anchors, akRight); if Left then include(Anchors, akLeft); if Top then include(Anchors, akTop); if Bottom then include(Anchors, akBottom); PaintBox.Anchors := Anchors; end;
Заблокирован Статус: Не в сети Регистрация: 18.11.2007 Откуда: Иркутск
И все же, наустанавлиал я кучу всяких компонент, несколько из них подошли. Теперь вылазят такие ошибки " Error reading ADVToolbar1.EdgeBorders property EdgeBorders does not exist." Что дальше делать ума не приложу(( Я так понял, что компонета вроде есть, но некоторые ее свойства не совпадают. Это надо искать другие версии компоненты или все же у меня ее нет?
Member
Статус: Не в сети Регистрация: 03.01.2004 Откуда: Питер
mp3corp просто нужно между компонентами по 5 пикселей зазор оставлять, чтобы не налезли друг на друга. Еще у каждого визуального компонента есть очень полезное свойство - Anchors, позволяет задать привязку к краям формы, чтобы компоненты адекватно реагировали на изменение размера формы. Ну а саму форму просто проверять при создании, чтобы Form1.Width < Screen.Width и Form1.Height < Screen.Height
_________________ Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)
Member
Статус: Не в сети Регистрация: 27.05.2006 Откуда: Saransk
Lord_of_Darkness Пасиб. Вроде как сделал. НО есть обин ньюанс, форма немного сильно вытягивается по вертикали чем надо... хотя это уже мои придирки)) а так все норм стало
_________________ Я рвусь от новостей так быстро мир стал другой.
Нужна помощь! Суть проблемы такова: имеется область, где постоянно выводится информация в виде [00.00.00] <asdasd> qweqwe Моя программа копирует выделенный текст и вставляет его в поле ввода, НО если в <asdasd> есть символ ']' , то программа сбоит и копировать начинает только после этого символа( Как сделать, что бы выделенный текст копировался правильно? function GetHText( x, y : integer ) : ansistring; var s : ansistring; l,i,ind : integer; begin ind:=0; SetLength( s, 900000 ); l := SendMessage( h, WM_GETTEXT, 900999, lparam( @s[ 1 ] ) ); for i:=1 to Length(s) do if s[i]=']' then ind:=i; Result := Copy( s, ind+2, l ); end; Вот у меня поиск идет по до последней скобки т.к. не знаю как по другому сделать(
Junior
Статус: Не в сети Регистрация: 04.02.2009 Откуда: Санкт-Петербург
function GetHText( x, y : integer ) : ansistring; var s : ansistring; l,i,ind : integer; begin ind:=0; SetLength( s, 900000 ); l := SendMessage( h, WM_GETTEXT, 900999, lparam( @s[ 1 ] ) ); //for i:=1 to Length(s) do //if s[i]=']' then ind:=i; ind:=pos(']',s); Result := Copy( s, ind+2, l ); end;
в ind должно быть число больше 0 указывающее на первую ] либо 0 если ] не найдена.
p.s. единственное, может потом надо будет использовать не ind+2, а ind+3.. но это разберешься думаю.. в целом тебе вообще будет достаточно что-то типа result := copy(s,pos(']',s)+3,l);
GaRFik Я так понял, щас будет искаться первая ] , но информация там выводится вся в столбик [00.00.00] <asdasd> qweqwe [00.00.00] <asdasd> qweqwe [00.00.00] <asdasd> qweqwe [00.00.00] <asdasd> qweqwe Как в таком случае работать?
Ну к примеру у меня делается так: [12.15.06] <Paramonov> ta-ta-ta, результат - <Paramonov> [12.15.06] <[Par]amonov> ta-ta-ta - копируется как monov>, тоесть не правильно.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения