🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #335049

Re: Problem z miganiem aplikacji

#335049
From: konsul41
Date: Tue, 07 Feb 2012 07:15
25 lines
2371 bytes
zrobiłem tak
var Brush : TBRUSH;
   c: TCanvas;
begin
   c := TCanvas.Create();
   c.Handle := DC;
   c.Brush:=TBrush.Create;
   try
     c.Brush.Color:=:=CreateSolidBrush(TPGKomponentData(FPGKomponentData^).kolor);
     c.TextOut(TPGKomponentData(FPGKomponentData^).rozmiar.Left,
               TPGKomponentData(FPGKomponentData^).rozmiar.Top,'Test');
     c.Rectangle(TPGKomponentData(FPGKomponentData^).rozmiar.Left,
                 TPGKomponentData(FPGKomponentData^).rozmiar.Top,
                 TPGKomponentData(FPGKomponentData^).rozmiar.Width,
                 TPGKomponentData(FPGKomponentData^).rozmiar.Height);
   finally
     c.Handle := 0;
     c.Free();
   end;

I nadal nie ma koloru.
Czy przypadkiem FBackBuffer nie jest czarnobiałe, ponieważ czarny jest 
dobrze malowany, biały także.
Inne kolory to ta siatka się zmienia.
http://www.kssoft.cba.pl/kolory.PNG
Technical Details
Message-ID: <4f30cf7d$0$26695$65785112@news.neostrada.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!wsisiz.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
References: <4f2d0c44$0$1229$65785112@news.neostrada.pl> <jgjc7n$558$1@news.dialog.net.pl> <4f2f80c2$0$1223$65785112@news.neostrada.pl> <jgo0ef$b6v$1@news.dialog.net.pl> <4f2f8a9f$0$1217$65785112@news.neostrada.pl> <4f2fb47e$0$1220$65785112@news.neostrada.pl> <jgoh5e$j3k$1@news.dialog.net.pl> <4f2fde49$0$1230$65785112@news.neostrada.pl> <jgoof1$mj4$1@news.dialog.net.pl> <4f2fea02$0$1260$65785112@news.neostrada.pl> <4f2fea47$0$26695$65785112@news.neostrada.pl> <jgoqc3$ndt$1@news.dialog.net.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!wsisiz.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
From: <konsul41@wp.pl>
Newsgroups: pl.comp.lang.delphi
References: <4f2d0c44$0$1229$65785112@news.neostrada.pl> <jgjc7n$558$1@news.dialog.net.pl> <4f2f80c2$0$1223$65785112@news.neostrada.pl> <jgo0ef$b6v$1@news.dialog.net.pl> <4f2f8a9f$0$1217$65785112@news.neostrada.pl> <4f2fb47e$0$1220$65785112@news.neostrada.pl> <jgoh5e$j3k$1@news.dialog.net.pl> <4f2fde49$0$1230$65785112@news.neostrada.pl> <jgoof1$mj4$1@news.dialog.net.pl> <4f2fea02$0$1260$65785112@news.neostrada.pl> <4f2fea47$0$26695$65785112@news.neostrada.pl> <jgoqc3$ndt$1@news.dialog.net.pl>
Subject: Re: Problem z miganiem aplikacji
Date: Tue, 7 Feb 2012 08:15:14 +0100
MIME-Version: 1.0
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157
X-Antivirus: avast! (VPS 120206-1, 2012-02-06), Outbound message
X-Antivirus-Status: Clean
Lines: 27
Message-ID: <4f30cf7d$0$26695$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 178.42.208.133
X-Trace: 1328598909 unt-rea-a-01.news.neostrada.pl 26695 178.42.208.133:1111
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit