hamze

ایشالا پروژه رو به جاهای خوب رسوندیم و مشتری دید و پسندید، حتما حتما لایسنسشو میخرم و جبران زحمتها و محبتهای شما رو میکنم.

این دمو تو کدوم ورژنه؟ من از 0.96.0.1068 استفاده میکنم که در دموهاش نیست.

میدونم برادر نداره. دارم از شما سوال میکنم راه حل در این مواقع چیه؟

با سلام در برنامم در یک ترد جانبی یک عملیات سنگین انجام میدم. در اپلیکشن معمولی بعد از اتمام عملیات به وسیله سند مسیج ، خروجی رو به مین فرم میفرستادم و با مسیج هندلری که نوشته بودم ، میگرفتم و به ابجکتی شبیه به ممو میفرستادم. اما در این فریمورک دیگه نه سیج هندلری هست و نه سند مسیجی. برای نمایش خروجی باید چیکار کرد؟ ممنون از راهنماییتون.

We wish you a very happy and prosperous new year

please help me. does unigui have the feature of change parent Form to uniGroupBox? چرا نمیتونم پرنت فرمم رو به گروپ باکس تغییر بدم.در صورتی که در اپلیکشن ویندوزی یا همون وی سی ال به راحتی این کار قابل انجامه؟ ممنون از پاسخی که میدید.

See this code procedure TF_Main.UniBitBtn1Click(Sender: TObject); begin F_OnlineUser.parent:=F_Main.GB_Parent; F_OnlineUser.show; end; I can not change parent Form to uniGroupBox? why? thanks.

The problem was solved thanks a lot Delphi Developer and Dear Farshad

it is client event 2 in folder demo

its dosent work again if EventName = 'myAjaxEvent' then begin if UniEdit2.Text = 'نام کاربری' then begin UniEdit2.Text := ''; UniEdit2.Font.Color := clBlack; end; end; not exist ,exit event please give me a guide

Thank my friends See the following example. i could not write client event help me client-event.rar

داش یوسف شما که تاج سری

delete post plz

delete post plz

Hi I do not want to be the server's operating Such as: if UniEdit7.Text = 'شماره همراه' then begin UniEdit7.Clear; UniEdit7.Font.Color:=clBlack; end; Since the server-side code will be reviewed and implemented in time

ممنون از پاسخگویی سریعتون

سلام مهندس : دوتا نکته : اول سوال : من میخام سایتی طراحی کنم به این شکل: در یکی از صفحات سایت نزدیک به هزار تا عکس وجود داره. سایتهایی که با این فریمورک ما طراحی میکنیم ، پس از لود کامل عکسها، سایت رو به عنوان یه سایت کاملا باز شده میشه طلقی کرد اما سایتهایی رو دیدم که هر چه اسکرول وب رو پایین میکشیم ، فقط همون عکسهایی که در روبری ماست لود میشوند. چطور باید این کار رو با این فریمورک انجام داد. نه اینکه همه عکسها آنن لود بشوند . میخام کم کم لود بشوند. سوال دوم : پیرو صحبتهای قبلی و گرون بودن فریمورک برای ما ایرانی ها ، با دونفر از دوستان دیگه هماهنگ کردیم که مبلغ یک میلیون دویست هزار تومن رو سه تایی بدیم. میخاستم بدونم ایا در این شرایط لایسنسی که به ما میدید رو میشه روی سه کامپیوتر نصب کرد؟ ممنون میشم همه سوالات رو جواب بدید نه فقط یک سوال رو. با تشکر.

Only tested on the icon file

unit Convert To 32 Bitmap UniImage List Remove the round black icon unit ConvertTo32BitImageList; interface uses SysUtils, Graphics, Classes, Controls, ImgList, CommCtrl, Consts, uniImageList; procedure AddIconToUniImageList32bit(CountIcon: Integer; aUniImageList: TUniImageList); implementation procedure P_ConvertTo32BitImageList(const ImageList: TImageList); const Mask: array [Boolean] of Longint = (0, ILC_MASK); var TemporyImageList: TImageList; begin if Assigned(ImageList) then begin TemporyImageList := TImageList.Create(nil); try TemporyImageList.Assign(ImageList); with ImageList do begin ImageList.Handle := ImageList_Create(Width, Height, ILC_COLOR32 or Mask[Masked], 0, AllocBy); if not ImageList.HandleAllocated then begin raise EInvalidOperation.Create(SInvalidImageList); end; end; ImageList.AddImages(TemporyImageList); finally TemporyImageList.Free; end; end; end; procedure AddIconToUniImageList32bit(CountIcon: Integer; aUniImageList: TUniImageList); var ICO: Ticon; i: Integer; ImgList: TImageList; begin ImgList:=TImageList.Create(nil); try ImgList.Clear; P_ConvertTo32BitImageList(ImgList); for i := 0 to CountIcon do begin ICO := Ticon.Create; try if FileExists(ExtractFilePath(ParamStr(0))+'pic\' + IntToStr(i) + '.ico') then ICO.LoadFromFile(ExtractFilePath(ParamStr(0))+'pic\' + IntToStr(i) + '.ico') else exit; ImgList.AddIcon(ICO); finally ICO.Free; end; end; aUniImageList.Assign(ImgList); finally ImgList.Free; end; end; end. uses: AddIconToUniImageList32bit(3, UniImageList1); ShowMessage(IntToStr(UniImageList1.Count)); for i := 0 to 3 do begin UniTreeView1.items[i].ImageIndex := -1; // add this UniTreeView1.items[i].ImageIndex := UniImageList1.Count - UniImageList1.Count+i; end;

جالب بود. اینم یه ترفنده بالاخره . وقتی از روشهای اصولی نمیشه رفت جلو مجبوریم ، کلک رشتی بزنیم. دم شما گرم. راستی اون یونیته رو که نوشتم واسه اینکه سیاهی دور آیکن رو بگیره دیدید؟ چطور بود؟ آیا راه دیگه ای که آیکن تروتمیز ادد بشه تو ایمیج لیست سراغ ندارید؟ در ضمن یه باگ بزرگ تو تیری ویو پیدا کردم . اگه وقت کردید بگید تا تیم بدم ببینید ممنون.

متوجه هستم چی میفرمایید. اگه ممکنه پروژه منو ببینید .اصلا ببینید درست عمل کردم؟

داداش این روشتون زیاد منطقی نیست مجبورم کردی قسمتی از پروؤه اصلیمو بزارم اینجا تا ببینید. در این شرایط باید چیکار کرد؟ S2.rar

ممنون از پیگیرتون آقای مهاجری یه نمونه براتون گزاشتم. 2 تا مشکل هست: اول اینکه ایندکس صفرم تیری ویو آیکن نمیگیرد. من اصرار به استفاده از این روش را دارم. مشکل دوم اینکه ، اگر از این روش آیکن به تیری ویو اختصاص میدهم ، کیفیت آیکن خیلی کم میشود ، در صورتی که اگر به صورت مستقیم و دستی در حالت دیزاین تایم ،آیکن را در ایمیج لیست وارد کنم ، کیفیتش کم نمیشود. البته میتونید در این سمپل هر دو مشکل را ببینید. ممنون از پیگیریتون. http://wikisend.com/download/520704/sample.rar sample.rar

شما خودتون این کد رو تست کردید؟ اولا چرا آیکون به ایندکس آخر میره؟ مگه ایندکس ها از صفر شروع نمیشه؟ کدی که شما قرار دادی رو هم تست کردم ، مشکلی که داره اینه که باید 2 بار روی دکمه کلید بشه تا اختصاص داده شود . در شمن فکر نمیکنید این نوع اختصاص دادن یه مقدار غیر منطقی باشه؟ یعنی اینکه کل رو منهای یک کنیم. چون در پروژه ای که در حال انجام هستم ، ایندکس عکسهای موجود در ایمیج لیست توسط یک متغیر ور در یک حلقه فور با شرایط خاصی اعلام میشه. در ضمن اگه میتونستید فارسی جواب بدید ، خیلی خیلی سپاسگزار میشدم. ممنون. مثال زیر رو ببینید: procedure TMainForm.UniSpeedButton3Click(Sender: TObject); var ICO: Ticon; i: Integer; begin for i := 0 to 2 do begin ICO := Ticon.Create; try if FileExists(ExtractFilePath(ParamStr(0)) + '0.ico') then ICO.LoadFromFile(ExtractFilePath(ParamStr(0)) + '0.ico') else ShowMessage('file not found'); UniImageList1.AddIcon(ICO); finally ICO.Free; end; UniTreeView1.items[i].ImageIndex := i; end; end;

ممنون از راهنماییتون. اما چرا وقتی به این شکل استفاده میکنم جواب نمیده؟ procedure TMainForm.UniSpeedButton3Click(Sender: TObject); var ICO: Ticon; begin ICO := Ticon.Create; try if FileExists(ExtractFilePath(ParamStr(0)) + '0.ico') then ICO.LoadFromFile(ExtractFilePath(ParamStr(0)) + '0.ico') else ShowMessage('file not found'); UniImageList1.AddIcon(ICO); finally ICO.Free; end; ShowMessage(IntToStr(UniImageList1.Count)); UniTreeView1.items[0].ImageIndex := 0; end;