azrael11

Forum Replies Created

Viewing 6 posts - 1 through 6 (of 6 total)
  • Author
    Posts
  • in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46757
    azrael11
    Participant
    'Hamilton' wrote:
    Also if you find your code works in the test app but doesn't in your project then something else to consider might be to change your file IO methods to explicitly call SysUtils, for example SysUtils.FindFirst, to avoid type mismatches with functions of the same name in other libraries (i've had this happen before, its obscure but maybe the wrong function is being called).

    Thank you my friend this is it… 😉 at last…

    I change the findfirst with sysutils.findfirst as you suggest and everything works great…

    Now a small question how can i track this problem… the source code consists from 30 units and a 30.000 lines of code… any tool to track it or anything else

    in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46747
    azrael11
    Participant

    Please someone help i really stuck here…

    in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46741
    azrael11
    Participant
    Code:
    Procedure StartSkinEngine;
    var
    skinnames: TStringList;
    rec : TSearchRec;
    themeName: string;
    Begin
    Conf.skinM.SkinDirectory := Program_Path+'mediaconfeditorskins';
    SkinNames := TStringList.Create;
    Conf.SkinM.SkinName := Conf.SkinM.GetSkinNames(SkinNames);
    Conf.sLB_ce_themes.Items.Clear;
    if FindFirst(Conf.SkinM.SkinDirectory+'*.*' , faAnyFile, Rec) = 0 then
    begin
    repeat
    if ((Rec.Attr and faDirectory) <> faDirectory) then
    begin
    themeName := Trim(Copy(rec.Name,0,Length(rec.Name)-4));
    Conf.sLB_ce_themes.Items.Add(themeName);
    end;
    until FindNext(Rec) <> 0;
    end;
    Conf.SkinM.SkinName := 'creamy_velvet';
    Conf.skinM.Active := True;
    Application.ProcessMessages;
    skinnames.Free;
    end;

    Ok here is more simple code i wrote again the same above problem…

    Now i am not using any integer variable so that envolves something…

    I update to the last version (the stable) but the problem remains…

    If i make Conf.skinM.active := False; everything works ok…

    If I make it true everything works ok exept the selectdirectory funtion that gives me the above error…

    help…

    p.s.

    The ThemeCreator(i+1) is just give the creator name and the skin name in alabel…

    The SetAllCursor(i+1) just strats the animated cursors engine…

    in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46722
    azrael11
    Participant
    'Support' wrote:

    Hello

    I think, you should debug this code more.

    The “i” variable can have incorrect value here…

    This topic will be moved in “Troubleshooting” part.

    I dubug the code and i found nothing other than this…

    When i make active the skinm i get the above error…

    I change the i variable to other name like xxxmmmkkk but nothing changes….

    Try difernet skins nothing changes…

    Please help… this keeps my project back….

    Thank you….

    in reply to: Png Resource with tsbitbtn #46143
    azrael11
    Participant
    'Support' wrote:

    Hello

    try such code please :

    Code:
    uses acPNG, CommCtrl;

    procedure TForm1.sButton1Click(Sender: TObject);
    var
    Png : TPNGGraphic;
    rs : TResourceStream;
    Ico : hIcon;
    begin
    Png := TPNGGraphic.Create;
    rs := TResourceStream.Create(hInstance, 'GLYF_CONFEDITOR', RT_RCDATA);
    Png.LoadFromStream(rs);
    rs.Free;
    sbitbtn1.Glyph.Assign(Png);
    Png.Free;
    end;

    OK that works great but how can i free the glyph image from sbitbtn1…

    The sbitbtn1.glyph.freeimage not working…

    neither sbitbtn.glyph.empty

    Thanks for your anwser…

    in reply to: What Happend now #46127
    azrael11
    Participant
    'Support' wrote:

    Hello

    You have files from previous AlphaControls version, seems. These files are reason of conflicts because Delphi uses them.

    If you can share your PC with me then I can solve a problem quickly.

    Thank you for your help…

    But i found how to solve this problem all i have to do is to erase manually the .dcp files of alphaskins in bpl directory….

    Thanks again…

Viewing 6 posts - 1 through 6 (of 6 total)