comport

← →
flur (2011-10-29 15:43) [0]

как мне перекрасить треугольник на форме по получению с компорта строковой переменной s:string (например число 22)
я получаю число ну 22 в Memo все нормально а как на это событие сделать перекраску треугольника . вот код программы

procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var s:string;
begin
BComPort1.ReadStr(S, Count);
Memo1.Text := Memo1.Text + S;

end;

← →
MBo © (2011-10-29 15:45) [1]

Canvas.Polygon

← →
Anatoly Podgoretsky © (2011-10-29 16:14) [2]

> MBo (29.10.2011 15:45:01) [1]

FloodFill

← →
flur (2011-10-29 16:25) [3]

у меня компонент JvShape(треугольник) стоит Brush.color:=clred;
как перкрасить по приходу числа 22 в ком порт или в memo
поясните где ставить FloodFill

← →
Сергей М. © (2011-10-29 16:50) [4]

> где ставить FloodFill

Там же - в BComPort1RxChar

← →
flur (2011-10-29 17:05) [5]

можно примерчик ?

← →
Сергей М. © (2011-10-29 17:09) [6]

В стандартной справке есть "примерчик".

← →
flur (2011-10-29 17:29) [7]

что то я там ни чего про floodfill не нашел?

← →
Сергей М. © (2011-10-29 17:37) [8]

Ты вообще с головой дружишь ?)

Ну если ты успешно закрасил с помощью строки Brush.color:=clred, то очевидно что и перекрашивать следует той же строки ! Разница-то лишь в указании другого цвета)

← →
flur (2011-10-29 17:54) [9]

так это я могу сделать brush.color:clblue -только меняй а вот как это сделать по приходу числа 22

← →
Сергей М. © (2011-10-29 17:56) [10]

> а вот как это сделать по приходу числа 22

Точно так же как и по приходу любой другой строки.

← →
Anatoly Podgoretsky © (2011-10-29 18:04) [11]

> flur (29.10.11 17:29) [7]
> что то я там ни чего про floodfill не нашел?

Надо Дельфи переинсталировать. И невероятный случай - возможно у тебя нет справки или ты неумеешь с ней работать.

← →
Inovet © (2011-10-29 18:04) [12]

> [9] flur (29.10.11 17:54)
> сделать по приходу числа 22

if chislo = 22 then Brush.Color := clBlue;
else Brush.Color := clRed;

такой вот компот из comport.

← →
flur (2011-10-29 18:06) [13]

так как напиши код

← →
app © (2011-10-29 18:07) [14]

попросишь в этом форуме

← →
flur (2011-10-29 18:29) [15]

переменная s:string в ней содержиться число 22
как по строковой переменной сделать это

← →
DiamondShark © (2011-10-29 18:32) [16]

Удалено модератором

← →
Pavia © (2011-10-29 18:40) [17]

flur, долго объяснять. Тебе надо книжка по дельфи и виндоусу.

В компоненте ком-порта ищешь какое событие отвечает за чтение данных. На него вешаешь обработчик в котором читаешь свои данные.
Затем проверяешь если они равны "22" то выставляешь цвет у треугольника. Грубо говоря присваиваешь новый цвет некоторой переменной.
И посылаешь сообщение на обновления изображения при помощи repaint.
В обработчике onpaint которое обрабатывает виндоуское сообщение wm_paint рисуешь свой треугольник нужным цветом. Если используешь компонент для вывода треугольника то читай справку по нему.

← →
Сергей М. © (2011-10-29 18:43) [18]

> как по строковой переменной сделать это

потренируйся на мемо.
получится с мемо - получится и с шейпом.

← →
flur (2011-10-29 18:54) [19]

спасибо за советы
может строковую переменную перевести в переменную с числом 22 и потом проверить равно 22 или нет и дальше уже закрашивать

← →
Сергей М. © (2011-10-29 19:03) [20]

> может строковую переменную перевести в переменную с числом 22

Ну переводи) если у тебя фобия на непосредственное сравнение содержимого полученной строки с "22")

← →
flur (2011-10-29 19:04) [21]

С Memo получилось перекрасить только перекрашивается по получении любого числа а мне надо что бы по определенному числу перекрашивать

← →
Сергей М. © (2011-10-29 19:12) [22]

> С Memo получилось перекрасить

Мемо-то к "перекрашиванию" какое отношение имеет ?)

← →
flur (2011-10-29 19:19) [23]

да тут мне посоветовали сначало с мемо попробывать перекрасить
так что сделать

← →
Сергей М. © (2011-10-29 19:24) [24]

Ну а своей-то головой ты думать собираешься ?)
Вот ответь на самый простой вопрос: какое отношение Мемо имеет к Шейпу ?
Мемо рисует текст, шейп - геом.фигуру..
И как при этом факте, спрашивается, ты умудрился заставить компонент Мемо перекрасить компонент Шейп ?)

← →
Омлет © (2011-10-29 19:57) [25]

> flur

Если не можешь вот это написать:

if s = "22" then Brush.Color := clBlue else Brush.Color := clRed;

начни с учебника.

← →
flur (2011-10-29 20:04) [26]

Так ты не понял я пробывал перекрасить мемо по чтению строковой переменной s:string вот все получилось мемо перекрасилось так мне посоветовали попробывать сначало но оно перекрашивается по любому числу в переменной S:string , а теперь надо по чтению строковой пременной S:string в которой записано число (допустим 22) перекрасить jvShape.brash.color:=clred на clblue но только по определенному числу (например 22)

> но оно перекрашивается по любому числу

У тебя видать свет клином сошелся на "перекрашивании")

Вот скажи, это так важно и интересно всем знать что ты собрался делать "по чтению ..22" ? Это так принципиально ?)
Да запускай ты на здоровье хоть космические корабли на просторы большого театра !)

← →
flur (2011-10-29 20:19) [28]

нет любое число что бы при чтении этого числа например нарисавать круг или еше что то сделать . при другом числе что то другое треугольник .например так понятно?

> flur (29.10.11 20:04) [26]

"какое бы слово мне выбрить на голове?" (баш)

> flur (29.10.11 20:19) [28]

В [25] всё есть.

← →
flur (2011-10-29 20:25) [31]

короче ты не знаешь?

Нет, короче чем в [25] я не знаю)
Да и куда уж короче чем в там)

Удалено модератором

← →
flur (2011-10-29 20:43) [34]

в[25] это страница

Что же будет в 42?

← →
flur (2011-10-29 21:04) [36]

отлично все получилось проглядел пример от Омлет спасибо большое все оказалось очень просто

← →
Лукошко (2011-10-31 10:29) [37]

Спасибо, настроение подняли

comport Найти похожие ветки