最近剛好有研究到色調的取出跟設定~ 在討論區有看到相關的文章，但使用之後都沒辦法取出色調， 所以到網路上搜尋一下 找到相關的小小用法在實驗之後~ 就在這小小的現醜一下 var BMPPalette : TMaxLogPalette; //色盤 FromBmp,ToBmp : TBitMap; begin //讀檔 FromBmp:=TbitMap.Create; FromBmp.LoadFromFile('From.bmp); //取出色盤 BMPPalette.palVersion:=$0300; BMPPalette.palNumEntries:=256; GetPaletteEntries(FromBmp.palette,0,256,BMPPalette.palPalEntry); //建檔 ToBmp:=TbmiMap.Create; Tobmp.PixelFormat:=pf8bit; Tobmp.Palette:=CreatePalette(PLogPalette(@BMPPalette)^); {繪圖、或其他動作} Tobmp.SaveToFile('To.Bmp'); end; 寫個大概 有什麼問題請多多指教~ ~未來仍漫長~

------
~未來仍漫長~