freeonterminate

unit uIOSUtils;

interface

uses
  System.UITypes;

procedure SetStatusBarColor(const iColor: TAlphaColor);

implementation

freeonterminate

(*
 * If expression - ternary operator like C.
 *
 * HOW TO USE
 *   1. uses uIfExp;
 *   2. IfExp<TYPE>(BooleanValue) - TRUE_VALUE or FALSE_VALUE
 *      or
 *      IfExp<TYPE>(BooleanValue).ThenElse(TRUE_VALUE, FALSE_VALUE);
 *
 * EXAMPLE

freeonterminate

program QuickSortSample;

procedure QuickSort(var ioInt: array of Integer);

  procedure QuickSortBody(iLo, iHi: Integer);
  var
    Min, Max, Mid: Integer;
    tmpInt: Integer;
  begin
    repeat

freeonterminate

(*
 * XE5 TStringGrid でヘッダをクリックされたイベントを取得するサンプルコード
 *
 * Copyright (c) 2018 HOSOKAWA Jun.
 *
 * HOW TO USE:
 *   1. Add XE5.Grid.Helper to uses block.
 *   2. Call StringGrid.Header[Column].OnXXX
 *
 * EXAMPLE:

freeonterminate

(*
 * TStringGrid をソートするサンプルコード
 *
 * Copyright (c) 2018 HOSOKAWA Jun.
 *
 * HOW TO USE:
 *   1. Add PK.StringGrid.Helper to uses block.
 *   2. Call StringGrid.SortByColumn(Column)
 *
 * EXAMPLE:

freeonterminate

(*
 * MMX, SSE, SSE2, 3DNow, 3DNow2, CPU Manifacture を取得するクラス
 * Copyright (c) 2018 HOSOKAWA Jun.
 *
 * LICENSE:
 *   本ソフトウェアは「現状のまま」で、明示であるか暗黙であるかを問わず、
 *   何らの保証もなく提供されます。
 *   本ソフトウェアの使用によって生じるいかなる損害についても、
 *   作者は一切の責任を負わないものとします。
 *

freeonterminate

(*
 * Easy Downloader
 *
 * Copyright (c) 2015, 2017 HOSOKAWA Jun.
 *
 * CONTACT
 *   Twitter @pik or freeonterminate@gmail.com
 *
 * LAST UPDATE
 *   2017/12/05  Remove iPort parameter

freeonterminate

unit FixTaskbarIconClick;
(*
 * Fix RSP-17322
 *
 * USAGE:
 *   Just add FixTaskbarIconClick to the uses section.
 *
 * RSP-17322:
 *   Window minimize-restore via taskbar icon click is broken in
 *   all Windows flavours

freeonterminate

uses
  System.Generics.Collections;

type
  TOpenText = class(TText);

procedure TForm1.CreateRandomText;
var
  x, y: Integer;
  Text: TText;

freeonterminate

(*
 * 概要  Base64 にエンコード
 * 引数  iSrc       エンコードしたいストリーム
 *       iDest      エンコード結果格納先
 *       iSepCount  セパレータを入れる場所(32 なら 32 個エンコードした所で入る)
 *       iSep       セパレータ
 *)
procedure EncodeBase64(
  const iSrc, iDest: TStream;
  iSepCount: Integer = 0;