Databases
StackOverflow2013
Postsdbo
POVCL component Opacity/transparence
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POVCL component Opacity/transparence
    primarykey
    data
    text
    <p>Is it possible to make e.g 20% transparent TMemo or other vcl component? like TButton or TEdit?</p> <p>While googling for solution I've found this: </p> <p><img src="https://i.stack.imgur.com/TpcOX.jpg" alt="http://img21.imageshack.us/img21/7865/screenshotizn.png"></p> <p><a href="https://stackoverflow.com/questions/1260670/rich-gui-application-in-delphi">From Here</a>, then I thought, if I draw image on form (OnPaint) then set AlphaBlend ON, I could achieve this effect but with no success, when the whole form is transparent, main needed effect is not achieved, no bg pic behind memo.</p> <p><img src="https://i.stack.imgur.com/dxsBB.png" alt="enter image description here"></p> <p>The effect I want to achieve: (it's done in photoshop) <img src="https://i.stack.imgur.com/U3FPM.png" alt="enter image description here"></p> <p>Is this possible? if is, how? (i don't ask for full src code anybody, just article or little example if possible, or direction, whatever just the way i can understand it)</p> <p>thnx for attention.</p> <hr> <p>I've found the solution, create alphablended form on the form with image background, then add memo on the added form and align it to client, not the best way, but it works fine: <img src="https://i.stack.imgur.com/ujRKx.png" alt="enter image description here"></p> <pre><code>procedure TForm1.Button1Click(Sender: TObject); var MM : TMyMemo; frm : TForm; begin frm := TForm.Create(Form1); frm.BorderStyle := bsNone; frm.AlphaBlend := true; frm.AlphaBlendValue := 150; frm.Left := Form1.Left + 90; frm.Top := Form1.Top + 90; frm.Width := 300; frm.Height := 300; frm.Position := poDesigned; frm.Visible := true; MM := TMyMemo.Create(frm); MM.Parent := frm; MM.BorderStyle := bsNone; MM.ParentColor := False; MM.Align := alClient; MM.Color := clBlack; MM.Font.Color := clWhite; MM.Font.Name := 'Sylfaen'; MM.Font.Size := 11; MM.Visible := True; frme := True; end; </code></pre> <p>But there is another problem, when i press on memo, background form loses focus, when i set new forms' parent to Form1,above problem is solved but transparent effect is gone (window is still transparent but you can see through bg window without visible background) how can i solve this problem?</p>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. USCommunity
    1. USuser2200585
    plurals
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POVCL component Opacity/transparence
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POVCL component Opacity/transparence
      1. This table or related slice is empty.
      1. VTUpMod
    1. COif TMemo is derived from TWinControl then it has `.Handle: HWND` property. Maybe you can use it with Win32 GDI API to force TMemo alpha-blended. However that may have unexpected side-effects or compatibility requirements.
      singulars
      1. POVCL component Opacity/transparence
      1. USArioch 'The
    2. COhow above theme is made? any ideas?
      singulars
      1. POVCL component Opacity/transparence
      1. USuser2200585
    3. COread the edited question
      singulars
      1. POVCL component Opacity/transparence
      1. USuser2200585
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload