Forum Replies Created
-
AuthorPosts
-
September 28, 2011 at 2:32 am in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46757azrael11Participant'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
September 25, 2011 at 2:27 am in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46747azrael11ParticipantPlease someone help i really stuck here…
September 21, 2011 at 9:27 pm in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46741azrael11ParticipantCode: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…
September 20, 2011 at 1:09 pm in reply to: [SOLVED] Here is a strange thing… how can i solve it ? #46722azrael11Participant'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….
azrael11Participant'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…
azrael11Participant'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…
-
AuthorPosts