Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DrawText. Задать параметры / 12 сообщений из 12, страница 1 из 1
07.10.2019, 21:22
    #39873007
Женя32
Женя32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Здравствуйте!
Подскажите пожалуйста, как правильно задать параметры?

DrawText(PaintBox1.canvas.Handle, PChar(Edit1.text), length(Edit1.Text), rect[10,10], DT_CENTER );
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2019, 21:58
    #39873036
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Женя32,

Rect( 10, 10, 100, 100 )

Это функция.

Либо задай переменную типа TRect и поприсваивай поля этой структуры.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 11:33
    #39873229
Женя32
Женя32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
YuRockЖеня32,

Rect( 10, 10, 100, 100 )

Это функция.

Либо задай переменную типа TRect и поприсваивай поля этой структуры.
Ошибка:
[dcc32 Error] Blank21.pas(173): E2036 Variable required

Код: pascal
1.
 DrawText(PaintBox1.canvas.Handle, PChar(Edit1.text), length(Edit1.Text), rect(10,10, 100, 100), DT_CENTER);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 12:11
    #39873253
goldmi45
goldmi45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Женя32,

function DrawText(hDC: HDC; lpString: PChar; nCount: Integer; var lpRect: TRect; uFormat: UINT): Integer;
т.е. rect(10,10, 100, 100) должна быть переменной
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 12:29
    #39873268
Женя32
Женя32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Что я пропустил?

[dcc32 Error] Blank21.pas(175): E2066 Missing operator or semicolon

Код: pascal
1.
2.
3.
4.
5.
var
 rect: TRect;
begin
 DrawText(PaintBox1.canvas.Handle, PChar(Edit1.text), length(Edit1.Text), rect(10,10, 100, 100), DT_CENTER);
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 12:37
    #39873287
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
08.10.2019 12:29, Женя32 пишет:
>
> Что я пропустил?

уроки информатики.

var
rect: TRect;
....
rect(10,10, 100, 100)
это пес дец!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 12:50
    #39873301
Женя32
Женя32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Мимопроходящий08.10.2019 12:29, Женя32 пишет:
>
> Что я пропустил?

уроки информатики.

var
rect: TRect;
....
rect(10,10, 100, 100)
это пес дец!

Все ровно не работает.......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 12:53
    #39873304
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
убейте тролля тупорылого.
он начал повторяться.
21912311
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 13:38
    #39873342
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Мимопроходящийrect(10,10, 100, 100)
это пес дец!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 13:42
    #39873345
goldmi45
goldmi45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Женя32,

Код: pascal
1.
2.
3.
4.
5.
6.
var
  aRect: TRect;
begin
  aRect := rect(10,10, 100, 100);  // Результат rect в переменную
  DrawText(PaintBox1.canvas.Handle, PChar(Edit1.text), length(Edit1.Text), aRect, DT_CENTER);
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2019, 14:01
    #39873350
makhaon
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Можно так:
aRect := TRect.Create(10, 10, 100, 100);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2019, 14:19
    #39874026
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DrawText. Задать параметры
Совсем народ обленился думать и книжки читать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DrawText. Задать параметры / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 453ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2038970]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 208ms
total:  453ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]