Skip to content

Instantly share code, notes, and snippets.

Avatar

HOSOKAWA Jun freeonterminate

  • Japan
View GitHub Profile
@freeonterminate
freeonterminate / BinUtils.dpr
Last active Jun 29, 2020
2進⇔10進数変換
View BinUtils.dpr
program BinUtils;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, System.Classes;
function FromBinary(const AValue: String): Integer;
@freeonterminate
freeonterminate / delphidiscord.md
Last active Nov 22, 2020
Delphi Discord サーバ
View delphidiscord.md

Delphi Discord Server

Delphi の Discord Server を作成しました。
雑談・質問や情報交換の場としてご利用ください。

以下の URL から参加できます。

https://discord.gg/W593cak

注意ですが、Discord は「必要な時だけ参加して、不要になったらサーバから脱退する」という使い方をする場所ではありません。 不要な時は、サーバから脱退せず、Discord にアクセスしないだけで大丈夫です。

View PK.Fix.Scale.ComboBox.pas
(*
* Fix:
* Deal with a problem that ComboBox can not be operated when Scale is
* greater than 100%
*
* USAGE:
* Just add PK.Fix.Scale.ComboBox to the uses section.
*
* LICENSE:
* Copyright (c) 2018 HOSOKAWA Jun
@freeonterminate
freeonterminate / QuickSortSample.pas
Last active Feb 20, 2018
Integer の QuickSort サンプル
View QuickSortSample.pas
program QuickSortSample;
procedure QuickSort(var ioInt: array of Integer);
procedure QuickSortBody(iLo, iHi: Integer);
var
Min, Max, Mid: Integer;
tmpInt: Integer;
begin
repeat
@freeonterminate
freeonterminate / XE5.Grid.Helper.pas
Created Feb 8, 2018
XE5 TStringGrid でヘッダをクリックされたイベントを取得するサンプルコード
View XE5.Grid.Helper.pas
(*
* 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
freeonterminate / PK.StringGrid.Helper.pas
Last active Feb 7, 2018
TStringGrid をソートするサンプルコード
View PK.StringGrid.Helper.pas
(*
* TStringGrid をソートするサンプルコード
*
* Copyright (c) 2018 HOSOKAWA Jun.
*
* HOW TO USE:
* 1. Add PK.StringGrid.Helper to uses block.
* 2. Call StringGrid.SortByColumn(Column)
*
* EXAMPLE:
@freeonterminate
freeonterminate / PK.SSEStatus.pas
Last active Feb 6, 2018
MMX, SSE, SSE2, 3DNow, 3DNow2, CPU Manifacture を取得するクラス
View PK.SSEStatus.pas
(*
* MMX, SSE, SSE2, 3DNow, 3DNow2, CPU Manifacture を取得するクラス
* Copyright (c) 2018 HOSOKAWA Jun.
*
* LICENSE:
* 本ソフトウェアは「現状のまま」で、明示であるか暗黙であるかを問わず、
* 何らの保証もなく提供されます。
* 本ソフトウェアの使用によって生じるいかなる損害についても、
* 作者は一切の責任を負わないものとします。
*
@freeonterminate
freeonterminate / uComboEditHelper.pas
Created Jan 10, 2018
TComboEdit のフォントを変更するサンプルコード
View uComboEditHelper.pas
(*
* TComboEdit のフォントを変更するサンプルコード
*
* Copyright (c) 2018 HOSOKAWA Jun.
*
* HOW TO USE:
* 1. Add uComboEditHelper to uses block.
* 2. Call ComboEdit.SetFont at an appropriate timing such as FormCreate
*
* EXAMPLE:
View FixTaskbarIconClick.pas
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
freeonterminate / Unit2.pas
Created Nov 20, 2017
TText, TGridLayout の BeginUpdate / EndUpdate 利用
View Unit2.pas
uses
System.Generics.Collections;
type
TOpenText = class(TText);
procedure TForm1.CreateRandomText;
var
x, y: Integer;
Text: TText;
You can’t perform that action at this time.