Messages

1

Russian / áàã â 17é âåðñèè

« on: May 05, 2004, 03:01:08 AM »

Áàã òîëüêî â 17-îé âåðñèè... ïðè÷åì â òîé, ÷òî ÿ ñêîìïèëèðîâàë èç èñõîäíèêîâ. À â 17-îé, êîòîðóþ ñêà÷èâàë ñ ñàéòà &RQ, íåòó áàãà.

2

Russian / Èêîíêè â ìåíþ

« on: May 03, 2004, 02:44:16 PM »

Íàðîä, ïîçäðàâëÿþ, íè÷åãî íå ñîîáðàæàÿ â àëüôà êàíàëàõ ÿ âðîäå íàøåë ãëþê è ñïîñîá åãî èñïðàâèòü.
 ìîäóëå PngUnit.pas íàéäèòå ïðîöåäóðó
procedure DrawPng(ACanvas: TCanvas; const Rect: TRect);
òàì åñòü ñòðî÷êè
        if a = 0 then
        begin
          // alpha is zero so no blending, just image data
          sl[ndx]     := b;
          sl[ndx + 1] := g;
          sl[ndx + 2] := r;
        end
        else if a < 255 then
        begin
          // blend with data from ACanvas as background
          sl[ndx]     := ((sl[ndx] * a) + ((255 - a) * b)) div 255;
          sl[ndx + 1] := ((sl[ndx + 1] * a) + ((255 - a) * g)) div 255;
          sl[ndx + 2] := ((sl[ndx + 2] * a) + ((255 - a) * r)) div 255;
        end;
Èõ íàäî çàìåíèòü íà
        if (a > 0) then
        begin
          // alpha is zero so no blending, just image data
          sl[ndx]     := b;
          sl[ndx + 1] := g;
          sl[ndx + 2] := r;
        end
        else
        begin
          // blend with data from ACanvas as background
          sl[ndx]     := ((sl[ndx] * a) + ((255 - a) * b)) div 255;
          sl[ndx + 1] := ((sl[ndx + 1] * a) + ((255 - a) * g)) div 255;
          sl[ndx + 2] := ((sl[ndx + 2] * a) + ((255 - a) * r)) div 255;
        end;
Ïîñëå ýòîãî âñå èêîíêè ñòàëè îòëè÷íî ïîêàçûâàòüñÿ  è áåç ãëþêîâ. Êàê âèäèòå, ïðèøëîñü ïîìåíÿòü â ïðîöåäóðå óñëîâèÿ ïî÷òè íà ïðîòèâîïîëîæíûå. Ñ ÷åì ýòî ñâÿçàíî - íå çíàþ. Îäíàêî äëÿ êðûñêè ýòîò âàðèàíò ïîäîõîäèò, ïî-êðàéíåé ìåðå ó ìåíÿ. Åñëè ó êîãî-òî òîæå ðàáîòàåò, ïóñòü îòïèøåòñÿ...
Çàáûë ñêàçàòü, ÷òî â ìîäóëå utilLib â ïðîöåäóðå
function loadPic(fn:string; bmp:Tbitmap):boolean;
bmp.Transparent äîëæåí áûòü ðàâåí true;

3

Russian / Ïðîâåðêà íà íåâèäèìîñòü

« on: April 29, 2004, 07:51:06 AM »

Èçâèíÿþñü, íî ÿ íå íàøåë ñâåæóþ òåìó íà äàííûé âîïðîñ. À âîïðîñ òàêîé - ðåàëèçîâàíî ëè â êðûñêå íîâàÿ âåðñèÿ ïðîâåðêè íà íåâèäèìîñòü, èáî ñòàðàÿ íå ðàáîòàåò. Ìîæåò êòî óæå ñäåëàë?

4

Russian / Èêîíêè â ìåíþ

« on: April 09, 2004, 04:00:14 PM »

Ïðîáîâàë ñ÷èòûâàòü è çàïèñûâàòü png-ôàéë, öâåòà áûëè íîðìàëüíûìè. Âèäíî ïðîáëåìà â òîì, êàê ýòè öâåòà ïåðåäàþòñÿ â TBitmap
Òàê ÷òî òîãäà èñïîëüçîâàòü? Êàê ðåøèòü ïðîáëåìó?

5

Russian / Èêîíêè â ìåíþ

« on: April 09, 2004, 02:26:39 PM »

Ó ìåíÿ äðóãàÿ ïðîáëåìà. PNG çàãðóæàåòñÿ íîðìàëüíî è BMP âûâîäèòñÿ ñ íîðìàëüíîé ïðîçðà÷íîñòüþ, ÍÎ ïàëèòðà â BMP ïåðåäàåòñÿ íå òà, ÷òî â PNG. Ìåíüøå öâåòîâ, ñêîëüêî íå ìîãó ñêàçàòü, âðîäå 256, âìåñòî 24 áèò, êàê ïîëîæåíî. Èñïîëüçóþ PngImage, â ÷åì ìîæåò áûòü ïðîáëåìà?
function loadPic(fn:string; bmp:Tbitmap):boolean;
var
  ext:string;
  png:TPNGObject;
begin
  PNG:=TPNGObject.Create;
  try
    result:=TRUE;
    if not absPath(fn) then fn:=myPath+fn;
    ext:=extractFileExt(fn);
    if comparetext(ext,'.png')=0 then
      begin
      bmp.Transparent:=FALSE;
//      ReadBitmapFromPngFile(fn,bmp);
      PNG.LoadFromFile(fn);
      bmp.PixelFormat:=pf24bit;
      bmp.Assign(PNG);
      end
    else
      begin
      if ext <> '.bmp' then fn:=fn+'.bmp';
      bmp.loadFromFile(fn);
      bmp.transparent:=TRUE;
      end;
  except
    result:=FALSE
  end;
  png.Free;
end; // loadPic