unit formDifferentBitSizeUnit; {$MODE Delphi} //todo: this is REALLY REALLY OLD interface uses Windows, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,CEFuncProc, Menus, LResources; type TformDifferentBitSize = class(TForm) Labelold: TLabel; LabelNew: TLabel; Button1: TButton; Label1: TLabel; Edit1: TEdit; PopupMenu1: TPopupMenu; OhnoYoufoundme1: TMenuItem; procedure FormShow(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure OhnoYoufoundme1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } newbit: string; oldbit: string; delta: integer; change: boolean; end; var formDifferentBitSize: TformDifferentBitSize; implementation uses globals; resourcestring rsTheLastTimeYouScannedTheNumberOfBitsWasAndNowItIsP = 'The last time you scanned the number of bits was %s and now it is %s. Please tell me how and how much i must change the ' +'bit offset to scan successfully. (Left+right arrow keys move the bits)'; rsWellDoneYouFoundAEasterEgg = 'Well done, you found a easter egg!'; procedure TformDifferentBitSize.FormShow(Sender: TObject); var i: integer; begin //convert the bits in bitscan to a string oldbit:=''; for i:=length(bitscan)-1 downto 0 do oldbit:=oldbit+IntToStr(bitscan[i]); delta:=0; labelold.caption:=oldbit; labelnew.caption:=newbit; labelnew.left:=labelold.left+labelold.Width-labelnew.Width; label1.caption:=Format(rsTheLastTimeYouScannedTheNumberOfBitsWasAndNowItIsP, [IntToStr(length(oldbit)), IntToStr(length(newbit))]); setlength(bitscan,0); i:=GetFontData(font.reference.Handle).Height; Labelold.Font.Height:=i; LabelNew.Font.Height:=i; end; procedure TformDifferentBitSize.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_left: begin labelnew.Left:=labelnew.left-labelnew.Canvas.TextWidth('D'); inc(delta); end; vk_right: begin labelnew.Left:=labelnew.left+labelnew.Canvas.TextWidth('B'); dec(delta); end; end; key:=0; end; procedure TformDifferentBitSize.Edit1KeyPress(Sender: TObject; var Key: Char); begin key:=chr(0); end; procedure TformDifferentBitSize.OhnoYoufoundme1Click(Sender: TObject); begin showmessage(rsWellDoneYouFoundAEasterEgg); end; procedure TformDifferentBitSize.Button1Click(Sender: TObject); begin close; end; procedure TformDifferentBitSize.FormCreate(Sender: TObject); begin change:=false; end; initialization {$i formDifferentBitSizeUnit.lrs} end.