jumperalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilslightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/Choice.pas @ 22

  → /trunk/Choice.pas @ 24

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 22 → Rev 24

/trunk/Choice.pas
4,7 → 4,8
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ComCtrls, Menus, ExtCtrls, System.ImageList, LevelFunctions;
Dialogs, StdCtrls, ImgList, ComCtrls, Menus, ExtCtrls, ImageList,
LevelFunctions;
type
TLevelChoice = class(TForm)
44,9 → 45,8
procedure TLevelChoice.DrawLevelPreview(Level: TLevel);
var
LevelArray: TLevelArray;
PlaygroundMatrix: TPlayGroundMatrix;
y, x: integer;
t: TFieldType;
indent: Integer;
Image: TImage;
BackgroundColor: TColor;
57,21 → 57,17
Image := PreviewImage;
BackgroundColor := Self.Color;
LevelArray := nil;
ClearImage(Image, BackgroundColor);
LevelArray := Level.LevelStringToLevelArray(false);
for y := Low(LevelArray) to High(LevelArray) do
Level.FillPlaygroundMatrix(PlaygroundMatrix, false);
try
for x := Low(PlaygroundMatrix.Fields) to High(PlaygroundMatrix.Fields) do
begin
for x := Low(LevelArray[y].Fields) to High(LevelArray[y].Fields) do
for y := Low(PlaygroundMatrix.Fields[x]) to High(PlaygroundMatrix.Fields[x]) do
begin
t := LevelArray[y].Fields[x].Typ;
indent := LevelArray[y].Indent;
case t of
ftFullSpace: Image.Canvas.Brush.Color := BackgroundColor;
// Rectange filling
case PlaygroundMatrix.Fields[x,y].FieldType of
ftFullSpace: Image.Canvas.Brush.Color := BackgroundColor; // invisible
ftEmpty: Image.Canvas.Brush.Color := clWhite;
ftGreen: Image.Canvas.Brush.Color := clLime;
ftYellow: Image.Canvas.Brush.Color := clYellow;
78,11 → 74,19
ftRed: Image.Canvas.Brush.Color := clRed;
end;
if LevelArray[y].Fields[x].Goal then
// Rectangle border
if PlaygroundMatrix.Fields[x,y].Goal then
Image.Canvas.Pen.Color := clBlack
else
Image.Canvas.Pen.Color := BackgroundColor;
begin
if PlaygroundMatrix.Fields[x,y].FieldType = ftFullSpace then
Image.Canvas.Pen.Color := BackgroundColor // invisible
else
Image.Canvas.Pen.Color := clLtGray;
end;
// Draw the rectangle
indent := PlaygroundMatrix.Fields[x,y].Indent;
Image.Canvas.Rectangle(x*PREVIEW_BLOCK_SIZE + indent*PREVIEW_TAB_SIZE,
y*PREVIEW_BLOCK_SIZE,
x*PREVIEW_BLOCK_SIZE + indent*PREVIEW_TAB_SIZE + PREVIEW_BLOCK_SIZE,
89,7 → 93,10
y*PREVIEW_BLOCK_SIZE + PREVIEW_BLOCK_SIZE);
end;
end;
finally
PlaygroundMatrix.ClearMatrix(true);
end;
end;
function TLevelChoice.SelectedLevel: string;
begin