GASCHE

8 часов назад, gelo1 сказал:

Всегда готов принять замечания и предложения.

Windows 10 64

Раскрывается на весь экран, активна 1/4 часть, как-то не красиво.

2 часа назад, Ильдар сказал:

Воу, шайтан! -) 

procedure TChart.Clear;
begin
  panel.Repaint;
end;

 

Application.ProcessMessages; Это костыль для решения вашей проблемы, я бы вместо

panel.Repaint; 

очищал так 

panel.Canvas.Clear(TAlphaColorRec.White); 

Тогда Application.ProcessMessages не нужен.

38 минут назад, Ильдар сказал:

Мне кажется вы не поняли суть вопроса.

Ну почему. Если без этой процедуры все работает то что-то в ней вы написали не правильно, значит в ней и надо копать. Добавьте после неё Application.ProcessMessages;

15 минут назад, Ильдар сказал:

А можно чуть поподробнее куда копать?

Смотрим отличия этих процедур, закомментируем лишнее //chart.Clear; и все "так же пусто" пропадает и мы видим график.

Я рисовал требуемое количество точек на TBitmap потом все копировал на экран, вырезал с TBitmap со второй точки очищал и копировал туда же все начиная с первой точки TBitmap в конец TBitmap дорисовывал следующую точку графика и так далее.

23 минуты назад, Janex72 сказал:

Но мне нужно построить график, как уже писал, которыи будет менятся/перерисовыватся 10 или чаше раз в секунду

Не совсем понятно, надо при каждом изменении дорисовывать в конец графика по одной точке, или каждый раз "менять/перерисовывать" весь график? 

В 13.11.2017 в 20:45, wamaco сказал:

1. Если менять размер формы мышкой, то постепенно кнопка "Закрыть" у главного окна, уходит вправо и потом становится не видна!

Нет такого, Windows 10 Pro  Version 1607.

9 часов назад, Равиль Зарипов (ZuBy) сказал:

синхронно и асинхронно, смотря как настроить

А как настраивать?

2 часа назад, gonzales сказал:

Не очень понял, чем это может помочь!

В windows это позволяет запустить поток когда вам нужно, а не по таймеру.

1 час назад, krapotkin сказал:

это как бы стоять и ждать пока
можно с тем же успехом 
repeat ... until Done;
поток блокируется.

Несколько не так, WaitForSingleObject поток засыпает и ждет тот же Event что хорошо для реализации асинхронного режима, repeat ... until Done поток не спит, нагружая процессор не нужной работой.

1 час назад, krapotkin сказал:

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

либо в обработчике окончания потока, либо через синхронизацию не заканчивая поток

Для асинхронного режима в Windows  есть WaitForSingleObject( Event, INFINITE ) , что аналогичное можно использовать в много платформенных приложениях?

Как то так работает 

procedure TfLT.cbMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
   iTagObject := ( Sender as TCornerButton ).Tag;
   sState     := Shift;
   btnChange();
end;

думаю и MyOnClick() тоже будет.

Тут Долго загружаются данные в Grid смотрели? 

12 часа назад, Alex7wrt сказал:

Где может быть ошибка?

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

Тип полей NOMER, DATA.

18 часов назад, gelo1 сказал:

Query1.SQL.Text := 'INSERT INTO SGKA_TAB_IZV (NOMER,DATA) VALUES ('+#39+ bsSkinEdit1.Text+#39+','+#39+ bsSkinDateEdit1.Text+#39+')';
  Query1.Open;

Как-то не вяжется INSERT и Open, может  лучше ExecSQL использовать?

20 часов назад, Alex7wrt сказал:

иначе приходится каждый раз после отрисовки создавать потоки заново

Если верить интернету, то в Windows создание потоков и синхронизация с основным потоком довольно "трудозатратая" операция. Для Windows я торможу поток dwStatus := WaitForSingleObject( Parms.fvEventUSB, INFINITE ); Когда надо запустить поток устанавливаю Event, данные из потока скидываю в потокобезопасный буффер и сообщаю об окончании обработки данных установкой другого Event.

6 минут назад, Евгений Корепов сказал:

Все с ней хорошо

Думаю нет, вы не знаете какой поток к ней обратиться в тот или иной момент времени. В Windows у вас отрабатывает сначала основной поток потом ForceQueue в андроид ForceQueue вклинивается в основной поток.

2 часа назад, Евгений Корепов сказал:

Т.е. нифига не работает.

А может не работает потому что неправильно написано? На мой взгляд MyLog не потокобезопасная процедура, а вы к ней обращаетесь из разных потоков. Из своего опыта я бы даже для Windows так делать не стал бы, один раз прокатит другой нет.

В 09.04.2017 в 16:27, Kitty сказал:

const
  // Доменное имя сайта
  DOMAIN: string = '193.106.248.115/Push_Server';

Не знаю правильно ли указывать папку вместе с именем сайта, но обычно папки разделяют так

const
  // Доменное имя сайта
  DOMAIN = '193.106.248.115\Push_Server';

В паскале если сам создал, то и уничтожать надо самому

   IF Assigned( postdata  ) THEN BEGIN
      postdata.DisposeOf;
      postdata := Nil;
   END;

В 14.03.2017 в 14:58, BEE-KEE-PER сказал:

есть полноценный пример кнопки с картинкой где картинка полность на всю кнопку???....

Такое впечатление что вам тут кто-то должен. Есть стиль

Да, это хорошо, только ЭТО так и осталось 

Здесь пытались.

10 часов назад, Major сказал:

Не в первый раз встречаю утверждение, что глобальные переменные в Delphi - зло.

Скорее всего так утверждают те, кто неправильно их использует.