Вверх ↑
Этот топик читают: Гость
Ответов: 233
Рейтинг: 12
#76: 2016-06-17 20:01:44 ЛС | профиль | цитата
Tad писал(а):
Спасибо большое!!!
карма: 2

0
Ответов: 9906
Рейтинг: 351
#77: 2016-06-17 21:01:29 ЛС | профиль | цитата
Мне показалось, что: Int2Str(wSecond)+'.'+Int2Str(wMilliseconds) -- не совсем правильно.
Не в плане "демонстрации вывода", а в плане фактических показаний

Вот так: Double2Str(wSecond+wMilliseconds/1000) -- получаются более правильные...

карма: 9

1
Голосовали:Tad
Ответов: 233
Рейтинг: 12
#78: 2016-06-17 21:57:44 ЛС | профиль | цитата
Galkov писал(а):
Double2Str(wSecond+wMilliseconds/1000)


А в чем различие?

Теперь все отлично, а главное загрузка проца при интерации 1 ms всего полпроцента в отличии от схемного варианта который грузил на 25 процентов...

Может кто подскажет еще как недостающие нули добавить к минутам и секундам что бы было 03 а не 3 минуты
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#79: 2016-06-17 22:09:17 ЛС | профиль | цитата
Вот так
code_37353.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_37353.txt [1KB] [582]
Ответов: 233
Рейтинг: 12
#80: 2016-06-17 22:42:58 ЛС | профиль | цитата
Tad писал(а):


Еще раз тебе огромное спасибо!!!!
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#81: 2016-06-17 23:28:03 ЛС | профиль | цитата
zag.png
Ответ: 2581 = 2
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1zag.png [113.3KB] [998]
Ответов: 1821
Рейтинг: 168
#82: 2016-06-18 09:20:16 ЛС | профиль | цитата
Tad, [flood]Получается, я отношусь к дошколятам [/flood]
карма: 5

0
Ответов: 233
Рейтинг: 12
#83: 2016-06-18 20:44:31 ЛС | профиль | цитата
Здравствуйте!

Есть IC поиска изображений, могут ли мешать друг другу несколько копий запущенных в одной программе одновременно? То есть одна копия работает нормально, а когда их запускаешь в разных потоках 2 или более штуки программа периодически начинает вылетать не указывая никаких ошибок
карма: 2

0
Ответов: 4612
Рейтинг: 746
#84: 2016-06-21 10:58:32 ЛС | профиль | цитата
Да, могут, если 1) внутри обращаются к одним и тем же данным 2) берут данные с верхних точек или выдают события справа (тогда идёт обращение к общим данным в схеме).
карма: 26

0
Ответов: 57
Рейтинг: 0
#85: 2016-07-22 16:51:10 ЛС | профиль | цитата
помогите пожалуйста с InlineCode , вот это код хочу вставить :
#pas
procedure TfrmContactMarketing.FormMouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
var
Control: TControl;
begin
Control := FindDragTarget(MousePos, True);
if (Control = nil) then
Exit;

// Все классы компонентов на фрейме над которыми может находится курсор
if (Control is TImage) or (Control is TGroupBox) or
(Control is TLabel) or (Control is TPanel) then
if (Control.Owner is TFrame) then
begin
ScrollBoxFishka.HorzScrollBar.Position :=
ScrollBoxFishka.HorzScrollBar.Position + WheelDelta;
Handled := True;
end;
end;

но незнаю как
вики читать не предлагать , уже второй день читаю





карма: 0

0
Ответов: 4612
Рейтинг: 746
#86: 2016-07-22 16:54:24 ЛС | профиль | цитата
Так ты ещё и задачу озвучь. Например: нужно перехватить колесо мыши над указанным контролом. Каким? Зачем?
карма: 26

0
Ответов: 57
Рейтинг: 0
#87: 2016-07-22 17:10:24 ЛС | профиль | цитата
моя задача была получить имя или путь к файлу под курсором , но не только на рабочем столе но и в проводнике ,
рылся в гугле по этой теме - нашел этот код , а накой там колесо мыши я не знаю так как не я автор кода
карма: 0

0
Ответов: 4612
Рейтинг: 746
#88: 2016-07-22 17:55:13 ЛС | профиль | цитата
По-моему, этот код тебе не поможет - он ловит колесо в своей программе и делает прокрутку скролл-бокса (есть некоторые особенности событий от колеса).
карма: 26

0
Ответов: 57
Рейтинг: 0
#89: 2016-07-22 21:43:40 ЛС | профиль | цитата
Netspirit да , извиняюсь , это я поторопился скопипастить код с форума , там другую проблему решали , попутал я
карма: 0

0
Ответов: 233
Рейтинг: 12
#90: 2016-08-23 00:11:50 ЛС | профиль | цитата
Дорогие знатоки форума, подскажите как данный код заставить работать... 3-й день бьюсь.

type

type
TRGB=record
b,g,r : byte;
end;
Type
ARGB=array [0..1] of TRGB;
PARGB=^ARGB;

procedure BlackWhite(image : tbitmap);
var
i, j, c : integer;
p : PARGB;
begin
image.PixelFormat:=pf24bit;
for i:=0 to image.Height-1 do
begin
p:=image.ScanLine[i];
for j:=0 to image.Width-1 do
begin
c:=round(0.3*p[j].r+0.59*p[j].g+0.11*p[j].b);
if c›=128 then c:=255 else c:=0; //эту строку надо убрать чтобы получить градации серого
p[j].r:=c;
p[j].g:=c;
p[j].b:=c;
end;
end;
end;

Нужно перевести картинку в черно белый цвет

Редактировалось 1 раз(а), последний 2016-08-23 00:12:31
карма: 2

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)