New TForm with new Properties
Q: I have created a new TForm class called TNewForm. And added a few published properties. Then added it to repository. Now, what…
Resize
[code lang=”delphi”]//Notice the 640 reference. procedure AdjustResolution(oForm:TForm); var iPercentage:integer; begin if Screen.Width > 640 then begin iPercentage:=Round(((Screen.Width-640)/640)*100)+100; oForm.ScaleBy(iPercentage,100); end; end; //call it like…
Small Fonts / Large Fonts…
>I have a Delphi program written on a computer with small fonts installed. >When this is run on a computer with identical properties…
Small Fonts / Large Fonts (2) – FormScaler
In article <3aaefd89_2@dnews>, William Meyer wrote: > Small fonts/large fonts is a problem without a clean solution. The > suggestion will be to…
Small Fonts / Large Fonts (3)
> > Hello, > > I made an application that looks fine when windows is using small fonts, but > if the user…
StayOnTop
Liang Liem wrote in message news: 37660B6D.83D9E151@capelon.se… Hi, I have a delphi-application that always using one of two forms. The application needs to…
Can EXE delete itself?
Q: how to let EXE delete itself while running? >I want to delete exe file while is opened. My friend did that in…
Check if File matches Wildcards
Q: > i would like to make a function that return if the file is in that wildcards > > e.g. > wildcards(‘c:\*.txt’,’c:\test.txt’)…
Choose a Directory
the following code will bring up the standard “Browse for folders” dialog with the full directory tree available: [code lang=”delphi”]uses FileCtrl; procedure TForm1.Button1Click(Sender:…
Deltree
[code lang=”delphi”]procedure DelTree(StartDir: string); var Search : TSearchRec; begin if Startdir[Length(Startdir)] ‘\’ then startdir := startdir + ‘\’; if FindFirst(startdir + ‘*.*’, faAnyFile,…