pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbControls: Refactoring of the 2D gradients and code used in several units over again.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5461 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-11 15:10:49 +00:00
parent 8daab50f04
commit 8b1a85037f
21 changed files with 2431 additions and 2911 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/mbColorLib/Demo/main.pas
View File

@ -16,7 +16,16 @@ uses
mbColorTree, mbColorList {for internet shortcuts};
type
{ TForm1 }
TForm1 = class(TForm)
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
@ -295,13 +304,13 @@ end;
// only for internet shortcuts
procedure TForm1.FormCreate(Sender: TObject);
begin
with TIniFile.Create(ExtractFilePath(Application.ExeName) + '\MXS Website.url') do
with TIniFile.Create(ExtractFilePath(Application.ExeName) + '\MXS Website.url') do
try
WriteString('InternetShortcut','URL', 'http://mxs.bergsoft.net');
WriteInteger('InternetShortcut','IconIndex', 1);
WriteString('InternetShortcut','IconFile', '"' + Application.ExeName + '"');
WriteString('InternetShortcut','URL', 'http://mxs.bergsoft.net');
WriteInteger('InternetShortcut','IconIndex', 1);
WriteString('InternetShortcut','IconFile', '"' + Application.ExeName + '"');
finally
Free;
Free;
end;
end;