Rev 79 | Rev 90 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 79 | Rev 80 | ||
|---|---|---|---|
| Line 184... | Line 184... | ||
| 184 | 184 | ||
| 185 | { TMainForm } |
185 | { TMainForm } |
| 186 | 186 | ||
| 187 | procedure TMainForm.DXInit; |
187 | procedure TMainForm.DXInit; |
| 188 | begin |
188 | begin |
| 189 | Imagelist.Items.LoadFromFile(OwnDirectory+'DirectX\Graphics.dxg'); // do not localize |
189 | Imagelist.Items.LoadFromFile(OwnDirectory+DxgFile); |
| 190 | ImageList.Items.MakeColorTable; |
190 | ImageList.Items.MakeColorTable; |
| 191 | DXDraw.ColorTable := ImageList.Items.ColorTable; |
191 | DXDraw.ColorTable := ImageList.Items.ColorTable; |
| 192 | DXDraw.DefColorTable := ImageList.Items.ColorTable; |
192 | DXDraw.DefColorTable := ImageList.Items.ColorTable; |
| 193 | DXDraw.UpdatePalette; |
193 | DXDraw.UpdatePalette; |
| 194 | DXDraw.Initialize; |
194 | DXDraw.Initialize; |