[نمایش خروجی یک ترد جانبی در ممو]

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

[نمایش خروجی یک ترد جانبی در ممو]

 

See demos\ThreadTimer-2

 

این دمو تو کدوم ورژنه؟

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

[نمایش خروجی یک ترد جانبی در ممو]

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

[نمایش خروجی یک ترد جانبی در ممو]

با سلام

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

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

ممنون از راهنماییتون.

[Happy New Year!]

We wish you a very happy and prosperous new year

[The problem calls for a dynamic form]

please help me.

does unigui have the feature of change parent Form to uniGroupBox?

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

ممنون از پاسخی که میدید.

[The problem calls for a dynamic form]

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.

[Client side operations]

The problem was solved

thanks a lot  Delphi Developer and Dear Farshad

[Client side operations]

It is Delphi code.

You need to write an event handler in Java script.

it is client event 2 in folder demo

[Client side operations]

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

[Client side operations]

Thank my friends

See the following example.

i could not write client event 

help me

 

client-event.rar

[Iran]

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

[Client side operations]

delete post plz

 

[Client side operations]

delete post plz

[Client side operations]

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

 

[سوال از اقای مهاجری]

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

[سوال از اقای مهاجری]

سلام مهندس :

دوتا نکته :

اول سوال :

من میخام سایتی طراحی کنم به این شکل:

در یکی از صفحات سایت نزدیک به هزار تا عکس وجود داره.

سایتهایی که با این فریمورک ما طراحی میکنیم ، پس از لود کامل عکسها، سایت رو به عنوان یه سایت کاملا باز شده میشه طلقی کرد

اما سایتهایی رو دیدم که هر چه اسکرول وب رو پایین میکشیم ، فقط همون عکسهایی که در روبری ماست لود میشوند.

چطور باید این کار رو با این فریمورک انجام داد.

نه اینکه همه عکسها آنن لود بشوند . میخام کم کم لود بشوند.

سوال دوم :

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

ممنون میشم همه سوالات رو جواب بدید نه فقط یک سوال رو.

با تشکر.

[Convert To 32 Bitmap UniImageList]

Only tested on the icon file

[Convert To 32 Bitmap UniImageList]

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;