본문 바로가기

Developist

ListView의 DynamicAppearance로 List에 Image 넣기
Delphi/꿀팁 ListView의 DynamicAppearance로 List에 Image 넣기 ListView의 ItemAppearance를 DynamicAppearance로 변경합니다. Structure -> ListView -> Item에서 Add new를 통해 TImageObject를 추가합니다. 만들어진 ImageObject에 원하는 이미지를 넣습니다.procedure setImage; var tmpListItem : TListViewItem; begin ListView.BeginUpdate; tmpListItem := ListView.Items.Add; tmpListItem.Objects.DrawableByName('ImageObject Name').Data := Image.Bitmap; //DrawableByName에는 새로 만든 ImageObject 이름을 넣습니다. (※위 사진 참조..
Delphi/간단하게 간단하게 사용자 계정 이름 가져오기 function GetCurrentUserName : string; const cnMaxUserNameLen = 254; var sUserName: string; dwUserNameLen: DWORD; begin dwUserNameLen := cnMaxUserNameLen - 1; SetLength(sUserName, cnMaxUserNameLen); GetUserName(PChar(sUserName), dwUserNameLen); SetLength(sUserName, dwUserNameLen); Result := sUserName;end;
Delphi/꿀팁 [mORMot] FMX에서 Json을 VariantDynArray로 변환하기 mORMot 다운 및 설정법은 developist.tistory.com/17 참조 mORMot의 SynCrossPlatformJSON을 추가합니다.uses SynCrossPlatformJSON;Json을 VariantDynArray로 변환합니다.function JsonToVariantDynArray(Json : string) : TVariantDynArray;var temp : TJSONVariantData;begin temp.Init; temp.FromJSON(Json); Result := temp.Values;end;

티스토리툴바