Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 107 из 116<  1 ... 104  105  106  107  108  109  110 ... 116  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

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;

Может можно как нибудь сразу?

_________________
*AMD OverClan*



Партнер
 

Заблокирован
Заблокирован
Статус: Не в сети
Регистрация: 18.11.2007
Откуда: Иркутск
И все же, наустанавлиал я кучу всяких компонент, несколько из них подошли. Теперь вылазят такие ошибки " Error reading ADVToolbar1.EdgeBorders property EdgeBorders does not exist." Что дальше делать ума не приложу(( Я так понял, что компонета вроде есть, но некоторые ее свойства не совпадают. Это надо искать другие версии компоненты или все же у меня ее нет?

_________________
УВЕ БОЛЛ ФАН №1!!!


 

Member
Статус: Не в сети
Регистрация: 27.05.2006
Откуда: Saransk
Судя по всему да, вполне может быть версия этого компонента отличается.

_________________
Я рвусь от новостей так быстро мир стал другой.


 

Member
Статус: Не в сети
Регистрация: 06.05.2005
Откуда: Chelyabinsk
Как подключить стороную библиотеку в Делфи 7?
Чтоб с ней можно было работать.
Премного благодарен!

_________________
Отвечайте нам ,а то если вы не отзавётесь мы напишем в спортлото... В. Высоцкий


 

Member
Статус: Не в сети
Регистрация: 27.05.2006
Откуда: Saransk
Suse имеется в виду использование *.dll в программе?

_________________
Я рвусь от новостей так быстро мир стал другой.


 

Member
Статус: Не в сети
Регистрация: 06.05.2005
Откуда: Chelyabinsk
да,хочу попробовать написать софт,а все команды интерфейса в библиотеки

_________________
Отвечайте нам ,а то если вы не отзавётесь мы напишем в спортлото... В. Высоцкий


 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Suse
например так
Код:
implementation
...
function FunctionName(Par1: Par1Type; Par2: Par2Type; ...): ReturnType; stdcall; external 'DLLNAME.DLL' name 'FunctionName' index FuncIndex;


ну а вообще - гугль в помощь. Там целые тонны инфы по работе с dll

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)


 

Member
Статус: Не в сети
Регистрация: 27.05.2006
Откуда: Saransk
Всем привет. Как сделать масштабирование формы и компонентов под различные разрешения?

_________________
Я рвусь от новостей так быстро мир стал другой.


 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
mp3corp
просто нужно между компонентами по 5 пикселей зазор оставлять, чтобы не налезли друг на друга. Еще у каждого визуального компонента есть очень полезное свойство - Anchors, позволяет задать привязку к краям формы, чтобы компоненты адекватно реагировали на изменение размера формы. Ну а саму форму просто проверять при создании, чтобы Form1.Width < Screen.Width и Form1.Height < Screen.Height

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)


 

Member
Статус: Не в сети
Регистрация: 27.05.2006
Откуда: Saransk
Lord_of_Darkness Пасиб. Вроде как сделал. НО есть обин ньюанс, форма немного сильно вытягивается по вертикали чем надо... хотя это уже мои придирки)) а так все норм стало

_________________
Я рвусь от новостей так быстро мир стал другой.


 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
mp3corp
в каком смысле? Там есть еще и свойства MaxWidth/MinWidth и MaxHeight/MinHeight ;)

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)


 

Member
Статус: Не в сети
Регистрация: 27.05.2006
Откуда: Saransk
просто я не ограничивал размеры формы. Как раз поправил.

_________________
Я рвусь от новостей так быстро мир стал другой.


 

Нужна помощь! Суть проблемы такова: имеется область, где постоянно выводится информация в виде [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
Как в таком случае работать?


 

Junior
Статус: Не в сети
Регистрация: 04.02.2009
Откуда: Санкт-Петербург
читайте построчно, какая проблема? не очень понимаю..

приведите пример того, как должно копироваться и как копируется в вашем случае.. ибо в вашем случае это неверно уже начиная от логических рассуждений.


 

Ну к примеру у меня делается так:
[12.15.06] <Paramonov> ta-ta-ta, результат - <Paramonov>
[12.15.06] <[Par]amonov> ta-ta-ta - копируется как monov>, тоесть не правильно.


 

Member
Статус: Не в сети
Регистрация: 02.03.2005
Откуда: Владивосток
Труп Душегуба
А что сложного - когда у тебя есть строчка, сперва вырезай все что до ] включая и сам символ ] - а потом уже парси, не обрабатывая []

З.Ы. - А еще лучше ищи символ '<' - и все что до него, удаляй.

Добавлено спустя 19 минут 34 секунды:
Труп Душегуба
Вот тебе готовый пример:
Код:
procedure TForm2.Button1Click(Sender: TObject);
Var
  i:Integer;
  S, S1, S2, S3, S_result:String;
  p:Integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do begin
    S := Memo1.Lines[i];
    p := Pos('<', S);
    S1 := Trim(Copy(S, 1, p-1));
    Delete(S, 1, p-1);
    p := Pos('>', S);
    S2 := Trim(Copy(S, 1, p));
    Delete(S,1,p);
    S3 := trim(S);
    S_result := S1 + ' ' + S2 + ' '+ S3;
    Memo2.Lines.Add(S_result);
  end;
end;


Кинешь на форму 2 Memo и один Button. В Memo1 скопируешь свой текст, ну типа этого:
Код:
[00.00.00] <123asdasd> qweqwe999
[00.00.00] <asd4456asd> qweqwe888
[00.00.00] <asd234asd> qweqwe777
[00.00.00] <asda444sd> qweqwe666
[12.15.06] <Paramonov> ta-ta-ta
[12.15.06] <[Par]amonov> ta-ta-ta


По обработке у тебя будет в Memo2 будет тот же текст, ну ессно построенный из 3-х частей.

_________________
I7 2600K@4.2/Asrock P67/Kingston HyperX 8Gb 1866/OCZ 256Gb/GIGABYTE GTX 960/BenQ EW2430/LG 47LM620T/Yamaha RX-V471+NS-555+NS-C444+NS-333+YST-SW215


 

Junior
Статус: Не в сети
Регистрация: 04.02.2009
Откуда: Санкт-Петербург
а если в тексте будет
Код:
[12.15.06] <Pa<>ramonov> ta-ta-ta
[12.15.06] <[Par]a>m>>n<ov> ta-ta-ta

?))))


 

Member
Статус: Не в сети
Регистрация: 02.03.2005
Откуда: Владивосток
GaRFik

Ну это уже другая задача :) - но тоже решаема

_________________
I7 2600K@4.2/Asrock P67/Kingston HyperX 8Gb 1866/OCZ 256Gb/GIGABYTE GTX 960/BenQ EW2430/LG 47LM620T/Yamaha RX-V471+NS-555+NS-C444+NS-333+YST-SW215


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 107 из 116<  1 ... 104  105  106  107  108  109  110 ... 116  >
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan