AndroidHalfNoob

Решил проблему. 

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

так у тебя присвоение события (OnClick) смотри где стоит)

Перенес    Image.OnClick := Image1Click; в цикл. все равно свойство Name выдается только последнего элемента

динамически создаю картинки из базы. потом при нажатии на любой динамический Image, должно выдаваться его имя, но имя выдается только последнего элемента. Пробовал 2 разный варианта:

Цитата

procedure TForm1.Button1Click(Sender: TObject);
var i:byte; Image:TImage;
begin

    for i:=1 to MyQuery1.RecordCount do begin
    Image := tImage.Create(Self);
    Image.Parent := Image1;

    Image.position.x :=MyQuery1.FieldByName('x').AsInteger;
    Image.position.y := MyQuery1.FieldByName('y').AsInteger;
    Image.Height:=MyQuery1.FieldByName('Height').AsInteger;
    Image.Width:=MyQuery1.FieldByName('Width').AsInteger;
    Image.name:= 'q'+inttostr(i);
    Image.Bitmap.Assign(ImageList1.Source.Items.MultiResBitmap.Bitmaps[1]);
    Image.Visible := true;
    MyQuery1.Next;

    end;
     Image.OnClick := Image1Click;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
with sender as timage do
ShowMessage(Image.Name);
end;

Выдается имя только последнего элемента.

Так же пробовал массив создавать:

Цитата

procedure TForm1.Button1Click(Sender: TObject);
var y:byte;Image:array[1..3] of TImage;
begin

     for i:=1 to 3 do begin
    Image := tImage.Create(Self);
    Image.Parent := Form1;

    Image.position.x :=MyQuery1.FieldByName('x').AsInteger;
    Image.position.y := MyQuery1.FieldByName('y').AsInteger;
    Image.Height:=MyQuery1.FieldByName('Height').AsInteger;
    Image.Width:=MyQuery1.FieldByName('Width').AsInteger;
    tip:=MyQuery1.FieldByName('Type').AsInteger;
    Image.name:= 'q'+inttostr(i);
    Image.TagString:=  i;
    Image.Bitmap.Assign(ImageList1.Source.Items.MultiResBitmap.Bitmaps[1]);
    Image.Visible := true;
    MyQuery1.Next;

    end;
     Image.OnClick := Image1Click;
end;

procedure TForm1.Image1Click(Sender: TObject);
var a:integer;
begin
 a:=(Sender as TImage).Tag;
ShowMessage(FloatToStr(a));
end;

Выдается ошибка:

но при этом картинки появляются, но Tag выдается только первой картинки.

Программное создание Image с картинкой. Картинки берутся из ImageList. Их надо заранее загрузить. Создается 3 картинки.

procedure TForm1.Button1Click(Sender: TObject);
var Image:TImage;i:byte;
begin

     for i:=1 to 3 do begin
    Image := tImage.Create(Self);
    Image.Parent := Image1;

    Image.position.x :=i*100;
    Image.position.y := 50;
    Image.Height:=100;
    Image.Width:=100;

    Image.Bitmap.Assign(ImageList1.Source.Items.MultiResBitmap.Bitmaps[1]);
    Image.Visible := true;

    end;
  
end;

3 часа назад, Brovin Yaroslav сказал:

Может потому, что ваш TImage лежит на панеле?

Нет. Создаю новый проект. на форму кидаю TImage. задаю ему фон. И сверху кладу второй TImage  и ему задаю картинку шахты. и получается то, что на скрине.
Может у TImage  есть какое то свойство, которое надо задавать, для прозрачности?

Всем привет народ. Возникла проблема: есть TImage  фоновая картинка и на этом фоне надо программно еще создавать TImage, но создаваемые картинки имеют лишний фон. Хотя картинки в png формате и там чисто шахта обрезана.

Подскажите как убрать этот лишний фон белый по бокам?

Возьмите меня работать на удаленку.

Только что, ZuBy сказал:

и все пользователи туда входят?

проверяли код из PS на других компах?

да, все пользователи доменные. странно что прога работает, ищет пользователь в АД и считывает их свойства, а вот именно свойство "учетная запись" выдает такую ошибку.

 на другом компе запускал прогу. выдается такое же сообщение.

4 часа назад, ZuBy сказал:

а вот что выдает у меня

PS C:\Users\ZuBy> whoami /upn
Ошибка. Не удается получить имя субъекта-пользователя (UPN), так как текущий
        вошедший пользователь не является пользователем домена.

 

ну скорее всего потому, что комп не в домене. у нас доменная сеть.

выдал имя моей учетки@имя домена.ru

и если поле не заполняется, то при формировании списка оно просто добавляется пустым. тестировал на примере телефонного номера. в memo просто добавляются пустые строки если у пользователя в учетке не заполнено поле "телефон". Странная ситуация.

sAMAccountName тоже выдает ошибку, что такое поле не найдено.

Вот процедура поиска людей. Смысл что формируется список пользователей у которых не заполнено хотя бы одно из полей. При создании пользователей сис админы забывают заполнить все поля. а эта утилитка анализатор АД.

Цитата

procedure TForm1.Button1Click(Sender: TObject);
var kol,i:integer;
begin
Memo1.Clear;
ADOQuery1.First;
for i:=1 to ADOQuery1.RecordCount do begin
  if (ADOQuery1.FieldByName('telephoneNumber').AsString='')
  or (ADOQuery1.FieldByName('title').AsString='') or (ADOQuery1.FieldByName('department').AsString='')then begin
  kol:=kol+1;
  Memo1.Lines.Add(ADOQuery1.FieldByName('displayName').AsString);
  ADOQuery1.Next;
 end
 else   ADOQuery1.Next;
end;
  ShowMessage('Количество записей с пустыми полями = '+ inttostr(kol));
  Memo1.Lines.Add('Итого= '+inttostr(kol));
end;

если хочу получить не выводимое имя displayName а название утечки userPrincipalName, то выдается ошибка, что такое поле не найдено, хотя в интернете везде пишут, что именно такой атрибут отвечает за хранение учетной записи.

3 минуты назад, ZuBy сказал:

вы на форуме не верно написали или в программе также?

userPrincipalName

на форуме. в программе правильно

userPrincipalName

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

Написал не большое десктрпное приложение для анализа АД. Получаю список полей: ФИО, телефон, должность а вот список учетных записей не могу получить. в интернете везде пишут, что за учетную запись отвечает параметр  userPrincipalNam, но программа выдает ошибку, что field not found.

Может кто сталкивался?

Подправил  FMX.TKRBarCodeScanner.pas как описано выше. все запустилось но результат не передается в МЕМО1.

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

В первом сообщении этой темы есть ссылка на обсуждаемый здесь компонент  TKRBarCodeSanner.zip, у этого компонента есть событие TKRBarCodeScannerScanResult(Sender: TObject;  AResult: string), ну и  AResult - это то где находится результат сканирования.

еще до своего поста скачал компонент и установил его. при компиляции выдается ошибка. к проекту подключил FMX.TKRBarCodeScanner.pas

Цитата

function TTKRBarCodeScanner.HandleAppEvent(AAppEvent: TApplicationEvent;
  AContext: TObject): Boolean;
begin
  Result := False;
  if FMonitorClipboard and (AAppEvent = aeBecameActive) then
  begin
    Result := GetBarcodeValue;
  end;
end;

в частности Делфи не известно aeBecameActive

пока не могу придумать, как это реализовать.

Цитата

  intent := TJIntent.Create;
    intent.setAction(StringToJString('com.google.zxing.client.android.SCAN'));
    SharedActivity.startActivityForResult(intent, 0);

код работает. запускается программа, но как потом результат штрих-кода передать в программу? у меня просто вибрирует телефон и программа считывания кода закрывается и возвращается в мою программу откуда я ее вызвал.

Хочу сделать некоторое подобие карты Он-Лайн. Чтобы все маркеры что есть на карте "двигались" по ней и сразу можно было бы видеть подпись маркера. Возможно ли как-то организовать чтобы у всех маркеров на карте сразу были видны подписи, а не надо было нажимать на каждый чтобы ее увидеть?

6 часов назад, walexw сказал:

rad studio 10 seattle
Кидаю на форму TLang. Добавляю второй язык. Все надписи отсканировались, но нет никакой возможности ввести их переводы.
Что бы я не делал, едиты для ввода значения на английском языке не появляются.
Судя по нашему форуму, такая бага замечена еще в предыдущих версиях.
Как быть?

баловался с   TLang. у меня все нормально работало.

2 минуты назад, Pax Beach сказал:

нужно ручку программиста позолотить. =)

Тогда уж клаву позолотить:)

оно еще и платное?:) ради интереса заглянул в Плэй маркет там штук 20 бесплатных гороскопов

" сегодня вчера завтра на неделю" ?

Шрифт Monotype Corsiva

5 минут назад, krapotkin сказал:

если честно, это плохая реализация ((

ну я описал как это можно вообще реализовать.

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

16 часов назад, Kitty сказал:

Подскажите, есть ли возможность, иметь ряд картинок, которые можно было бы прокручивать влево вправо. Типа слайд шоу.

Кидаем на форму GestureManager и Image.Image свойство Touch выбираем GestureManager. далее Gestures-Standart ставим галки на стандартных движениях

Пишем 

Цитата

 case EventInfo.GestureID of

  sgiLeft:  ShowMessage('Влево');
  sgiRight:  ShowMessage('Вправо');
end;

для события  TForm1.Image1Gesture. Запускаем программу и проводим вправо/влево по Image. Если принцип понятен, то реализуем загрузку картинки и радуемся:)