• Total Source Code 5
  • Total Page : 1
  • You currently on page number : 1

Bootstrap UI Kits

  • 00 0000
  • 694
  • web kits,icon,bootstap

To start working with Modern Touch UI Kit you can use a basic template.html, or take the completely functional pages included in this package. Since it is built on Bootstrap, you can also use it on your project with Bootstrap 3. We provide you both CSS and LESS standalone versions which are Read more

Icon in Status Bar

  • 21 December 2013
  • 189
  • icon,status bar

  unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ImgList; type TForm1 = class(TForm) StatusBar1: TStatusBar; ImageList1: TImageList; procedure FormCreate(Sender: TObject); procedure StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); private Read more

Make the dektop icon text transparent

  • 24 December 2013
  • 180
  • desktop,transparent,icon,text

uses Commctrl; var hLV: THandle; procedure TForm1.GetDesktopListViewHandle; var s1: String; begin hLV := FindWindow(''ProgMan'', nil); hLV := GetWindow(hLV, GW_CHILD); hLV := GetWindow(hLV, GW_CHILD); SetLength(s1, 40); GetClassName(hLV, PChar(s1), 39); if PChar(s1) ''SysListView32'' then ShowMessage(''Failed''); end; procedure Read more

Hide desktop Icon

  • 30 December 2013
  • 185
  • hide,desktop,icon

// Hide icons on the Desktop procedure TForm1.Button2Click(Sender: TObject); begin ShowWindow(DesktopListViewHandle, SW_HIDE); end; procedure TForm1.FormCreate(Sender: TObject); begin DesktopListViewHandle:=FindWindow(''ProgMan'', nil); DesktopListViewHandle:=GetWindow(DesktopListViewHandle, GW_CHILD); DesktopListViewHandle:=GetWindow(DesktopListViewHandle, Read more

refresh the icon cache

  • 13 January 2014
  • 166
  • icon cache

uses Registry; function RefreshScreenIcons : Boolean; const KEY_TYPE = HKEY_CURRENT_USER; KEY_NAME = 'Control Panel\Desktop\WindowMetrics'; KEY_VALUE = 'Shell Icon Size'; var Reg: TRegistry; strDataRet, strDataRet2: string; procedure BroadcastChanges; var success: DWORD; begin SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, Read more